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

Pascal ABC

var

n1 : real;

n2 : real;

rez : real;

begin

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

readlnI (n1);

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

readln (n2);

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

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

end;