(паскаль) один долгожитель, которому за 100 лет, заметил, что если к сумме квадратов цифр его возраста добавить дату его рождения (натуральное число, не большее 31), то получится его возраст. сколько лет долгожителю?

uses crt; var n,i: integer; a: array[1..1000] of integer; beginread(n); for i: =1 to n do read(a[i]); for i: =1 to n do beginif a[i]< 0 then a[i]: =abs(a[i]); for i: =1 to n do write(a[i],' '); end.

var

a,m,n,k: real;

begin

readln(m,n,k);

if (m+n+k)< (m*n*k) then 

a: =m+n+k

else

a: =m*n*k;

writeln(a);

end.