Пожалуйста посчитайте пожалуйста ​

program exxx1;

var a, b, c, s, r: real;

begin

write('Введите числа через пробел: ');

readln(a,b,c);

s:=a*a+b*b+c*c;

r:=a*a-b*b-c*c;

writeln('Округленная сумма кв. корней равна ', s:5:0);

writeln('Округленная разность кв. корней равна ', r:7:0);

read

end.