Найти все двузначные числа, сумма квадратов цифр которых делится на 17, например

р в квадрате так

на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

строку наоборот?

var s: string;

i: integer;

begin

  read(s);

  for i: = length(s) downto 1 do

        s1: = s1+s[i];

  writeln(s1);

end.