Pascal вычислить у= корень из x, при х = 4.5, 5.0, 5.5, … , 11.0.

program SqrtX;

const

 XBEG = 4.5;

 XEND = 11.0;

 DELTA = 0.5;

var

 x: Double;

begin

 x := XBEG;

 while x <= XEND do begin

   WriteLn (x :4 :1, Sqrt (x) :20 :15);

   x := x + DELTA;

 end;

 ReadLn;

end.