Программа должна вывести одно число: максимальное число, оканчивающиеся на 9. входные данные: выходные данные: 3 19 9 19 23

Var       n, max, i, d: integer; begin       readln(n);       max : = 0;       for i : = 1 to n do       begin               readln(d);               if (d mod 10 = 9) and ((max < d) or (max = 0)) then                       max : = d;       end;       writeln(max); end.

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, чтобы решить