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

Program n1;var a,b,c:real;beginreadln(a,b,c);writeln('a=',a,' b=',b,' c=',c);if a>=0 thenbegina:=sqrt(a);writeln('корень из a=',a);end;if b>=0 thenbeginb:=sqrt(b);writeln('корень из b=',b);end;if c>=0 thenbeginc:=sqrt(c);writeln('корень из c=',c);end;end.