Дано k - четырёхзначное число.

Найти сумму квадратов цифр числа если младшая цифра кратна 5, иначе найти произведение цифр числа.

Procedure Pr(var n:integer); begin   n:= (n div 1000) * (n div 100 mod 10)  * (n div 10 mod 10) * (n mod 10); end;   begin   var n: integer; 'Введите 4-х значеное число:'.Print;   while not(tryread(n) and n.InRange(1000,9999)) do Print('Повторите ввод! Допустимо 1000..9999:');   Pr(n);   (n mod 4=0 ? n + ' кратно 4': n+' не кратно 4').Println; end.