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

Var   d1,d2,n: integer;   k,s: longint; begin   write('введите натуральное двухзначное число: '); read(n);   d1: =n div 10; d2: =n mod 10;   k: =sqr(n); s: =4*(d1*sqr(d1)+d2*sqr(d2));   write(n,': ');   if k=s then writeln('квадрат числа (',k,           ') равен учетверенной сумме кубов его цифр')   else writeln('квадрат числа (',k,           ') не равен учетверенной сумме кубов его цифр (',s,')') end. тестовое решение: введите натуральное двухзначное число: 48 48: квадрат числа (2304) равен учетверенной сумме кубов его цифр введите натуральное двухзначное число: 47 47: квадрат числа (2209) не равен учетверенной сумме кубов его цифр (1628) замечание: на самом деле лишь одно число 48 среди всех двухзначных чисел удовлетворяет условию равенства, так что достаточно просто сравнивать введенное число с 48, чтобы решить

program xxx;

  var a, b, s : real;

              r, p, d : real;

begin

    write ('введите певрое число- ');

    readln (a);

    write ('введите второе число- ');

    readln (b);

    s: = a+ b;

    r : = a - b;

    p : = a* b;

    d : = a/b;

    writeln ('сумма =', s);

    writeln ('разность =', r);

    writeln ('произведение =', p);

    writeln ('частное = ', d);

    readln

end.

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.