Написать программу. Дано четырехзначное число. Определить, равен ли квадрат первой цифры кубу третьей цифры этого числа.

var

a, b, s, s1, i: integer; / / объявляем переменные целочисленного типа.

begin

write ('Введите четырехзначное число:'); / / вывод строки на экран.

read (a); / / считываем число, введенное с клавиатуры.

while a > 0 do / / начало цикла.

begin

b : = a mod 10; / / определяем последнюю цифру числа.

if i = 1 then s : = b; / / запоминаем третью цифру.

if i = 3 then s1 : = b; / / запоминаем первую цифру.

a : = a div 10; / / удаляем последнюю цифру из числа.

i : = i + 1; / / счетчик цифр.

end;

if (power (s1,2) = power (s, 3)) then / / сравниваем квадрат первой цифры и куб третьей цифры.

writeln ('Квадрат ', s1, ' равен кубу ', s) / / вывод на экран строки.

else

writeln ('Квадрат ', s1, ' не равен кубу ', s); / / вывод строки на экран.

end.