Напишите программу которая может посчитать сумму, разность, произведение, частное, квадратный корень, квадрат; трех чисел

Var
a,b,c:longint;
begin
read(a,b,c);
write(a+b+c,' ',a-b-c,' ',a*b*c,' ',a/b/c,' ',sqrt(a+b+c));
end.
Вроде так, но на щёт корня не уверен.