Дано целое трехзначное число x. Найти число, полученное при прочтении этого числа справа налево. Полученный " перевёртыш" возвести в квадрат и вывести результат на экран. Значение х ввести с клавиатуры-9 б.​

Объяснение:

program pr1;

var x:Integer;

n:Integer;//new number

begin

write('X=');

readln(X);

if x mod 10 <> 0 then

begin

n:=(x mod 10)*100+(x mod 100 - x mod 10)*10+x div 100;

n:=n*n;//или sqr(n)

writeln(n);

end else

begin

writeln('Число не должно начинаться с 0');

end;

readln;//для консоли в Delphi

end.