Verified answer

1.

var n,s:integer;

begin

write ('Введите число: ');

readln(n);

write ('Запись в обратном порядке: ');

if n<0 then

begin

write ('-');

n:=abs (n)

end;

while n>0 do

begin

s:=s+n mod 10;

write (n mod 10);

n:=n div 10

end;

writeln;

write ('Сумма цифр: ',s);

end.

2.

var n,i:integer;

begin

write('Введите число: ');

readln(n);

while i*i<=n do i:=i+1;

writeln('Первое натуральное число, квадрат которого больше ',n,': ',i)

end.