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

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.