Составить программу вычисления квадратного корня их неотрицательных чисел, заданных 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.