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

program zz1;
var x,y:real; // задаем переменные нецелого типа
begin
while xlt;=20 do // организуем цикл, в котором будем перебирать все числа по х от 0 до 20
begin
y:=sqr(x)-1; // вычисляем значение функции
x:=x+0.1; // берем последующее число х
writeln(при х=,x:5:1, y=,y:8:2); // выводим ответ в формате, для х один символ после запятой, для у - два знака после запятой, для всего числа х пять позиций, для у - восемь
end;
end.