Найти сумму квадратов чисел n1 и n2Pascal ABC

Question

Найти сумму квадратов чисел n1 и n2Pascal ABC

Answer 1

var

n1 : real;

n2 : real;

rez : real;

begin

write ('Введите число n1: ');

readlnI(n1);

write ('Введите число n2: ');

readln(n2);

rez := sql(n1)+sql(n2);

writeln('Результат выполнения: ',rez);

end;