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

rogram zz1;

var x, y:real; / / задаем переменные нецелого типа

begin

x:=0.2; / / задаем начальное значение для х

while x<=20 do / / организуем цикл по х от 0 до 20

begin

y:=sqr (x) + 1; / / вычисляем значение функции

writeln ('при х=', x:5:1, ' y=', y:8:2); / / выводим ответ

x:=x+0.2; / / берем следующий х

end;

end.