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

Program n1;

var a, b, c:real;

begin

readln (a, b, c) ;

writeln ('a=', a,' b=', b,' c=', c) ;

if a>=0 then

begin

a:=sqrt (a) ;

writeln ('корень из a=', a) ;

end;

if b>=0 then

begin

b:=sqrt (b) ;

writeln ('корень из b=', b) ;

end;

if c>=0 then

begin

c:=sqrt (c) ;

writeln ('корень из c=', c) ;

end;

end.