var x, y : Real;begin
x := 0.2;
while x <= 20 do begin y := sqr(x) +1 ; Writeln(x:0:1 ,'^2 + 1 = ', y:0:2); x := x + 0.2; end; ReadLn;end.