Выберите функциональную клавишу enter numlock tab f2

enter

Объяснение:

Var
  x:real;
begin
  x:=-2;
  while x<=2.001 do begin
    Writeln('x=',x:4:1,'  y=',5*sqr(x)-x+2:0:2);
    x:=x+0.1
  end
end.

Результат выполнения программы:
x=-2.0  y=24.00
x=-1.9  y=21.95
x=-1.8  y=20.00
x=-1.7  y=18.15
x=-1.6  y=16.40
x=-1.5  y=14.75
x=-1.4  y=13.20
x=-1.3  y=11.75
x=-1.2  y=10.40
x=-1.1  y=9.15
x=-1.0  y=8.00
x=-0.9  y=6.95
x=-0.8  y=6.00
x=-0.7  y=5.15
x=-0.6  y=4.40
x=-0.5  y=3.75
x=-0.4  y=3.20
x=-0.3  y=2.75
x=-0.2  y=2.40
x=-0.1  y=2.15
x= 0.0  y=2.00
x= 0.1  y=1.95
x= 0.2  y=2.00
x= 0.3  y=2.15
x= 0.4  y=2.40
x= 0.5  y=2.75
x= 0.6  y=3.20
x= 0.7  y=3.75
x= 0.8  y=4.40
x= 0.9  y=5.15
x= 1.0  y=6.00
x= 1.1  y=6.95
x= 1.2  y=8.00
x= 1.3  y=9.15
x= 1.4  y=10.40
x= 1.5  y=11.75
x= 1.6  y=13.20
x= 1.7  y=14.75
x= 1.8  y=16.40
x= 1.9  y=18.15
x= 2.0  y=20.00

Если без циклов то
program fifteen;
begin
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
end.

Если циклы уже
program fifteen;
var
i:integer;
begin
for i:=1 to 15 do
writeln('Имя и фамилия');
end.