Найдите значения функции y=x2-1, для x=0.1,0.2,0.3 ...,20. Задайте форматированный вывод для x всего 5 знаков, из них после запятой-один, для y всего восемь знаков, из них после запятой-два.

program zz1;

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

begin

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

begin

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

x:=x+0.1; / / берем следующее число х

writeln ('при х=', x:5:1, ' y=', y:8:2); / / выводим ответ в формате, для х один знак после запятой, для у - два знака после запятой, для всего числа х пять позиций, для у - восемь

end;

end.