var a,res:integer;
begin
writeln('Введите число');
readln(a);
res:=sqr(a);
writeln('Квадрат числа,'a', равен,'res',');
readln;
end.
Никто не решится наверное) да еще на ночь глядя)
Var
i,n:integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
end.
Когда к документу прилогается музыка или звук
Ответ:
1c
2d
3a
4d
5b
6c
Хз правильно не правильно