Даны три числа а, в, с. составить программу, котораЯ вычислит квадратный корень только положительных чисел

Паскаль:

Program one;

Var a, b, c:real;

Uses CRT; / / можно не писать, команда подключает консоль

begin

Writeln ('Введите 3 числа') ;

Readln (a, b, c) ;

If a>=0 then writeln (sqrt (a)) ;

If b>=0 then writeln (sqrt (b) ;

If c>=0 then writeln (sqrt (c) ;

end.