Найдите значения функций У=Х^2+1, для X= 0,2;0,4;0,6;...;20.

rogram zz1;
var x,y:real; // задаем переменные нецелого типа
begin
x:=0.2; // задаем изначальное значение для х
while xlt;=20 do // организуем цикл по х от 0 до 20
begin
y:=sqr(x)+1; // вычисляем значение функции

writeln(при х=,x:5:1, y=,y:8:2); // выводим ответ
x:=x+0.2; // берем следующий х
end;
end.