var
i:integer;
s:string;
begin
write('Введите имя: ');
readln(s);
for i:=1 to 7 do
begin
write(s);
writeln(' Скоро каникулы!');
end;
end.
Для паскаля:
uses CRT;
var a, b: integer;
begin
write (' Введите длину первого катета ');
read (a);
write (' Введите длину второго катета ');
read (b);
write (' Гипотенуза =');
write (sqr(a)+sqr(b));
end.
3 вариант, все остальное рассуждение.
здоров!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :)