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

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.