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

var
   a, b, s, s1, i: integer;       // объявляем переменные целочисленного типа.
begin
  write (Введите четырехзначное число:);     // вывод строки на экран.
  read(a);                                                      // считываем число, введенное с клавиатуры.
  while a gt; 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.