Составить программу вычисления квадратного корня их неотрицательных чисел, заданных a, b, c.

var a, b, c:integer;

begin

writeln ('Введите первое число');

readln (a);

writeln ('Введите второе число');

readln (b);

writeln ('Введите третье число');

if a>=0 then if b>=0 then if c>=0 then begin

writeln ('Корень первого числа: ', sqrt (a));

writeln ('Корень второго числа: ', sqrt (b));

writeln ('Корень третьего числа: ', sqrt (c));

end else

writeln ('Одно из чисел отрицательное!');

end.