Даны три числа a, b, c . Определите сумму и разность их квадратных корней​ . Помогите, пожалуйста, я буду очень признательна

var  

a,b,c:integer;

begin

readln(a,b,c);

if (a>=0) and (b>=0) and (c>=0) then  

begin

writeln('Сумма квадратных корней: ', sqrt(a)+sqrt(b)+sqrt(c):4:2);

writeln('Разность квадратных корней: ', sqrt(a)-sqrt(b)-sqrt(c):4:2)

end

else

writeln('Мы не можем извлекать корни из отрицательных чисел :( ');

end.