Вычислить значение выражения (циклы While,For,Repeat)

const
a=17.2;
b=24.6;
var
y,n:real;
x:integer;
begin
for x:=2 to 20 do begin
 y:=sqr(a+b*x)+a*b*cos(x);
end;
 writeln(y:5:3);
end.

const
a=17.2;
b=24.6;
var
y,n:real;
x:integer;
begin
x:=2;
while x<=20 do begin
 y:=sqr(a+b*x)+a*b*cos(x);
x:=x+1;
end;
 writeln(y:5:3);
end.

const
a=17.2;
b=24.6;
var
y,n:real;
x:integer;
begin
x:=2;
repeat
 y:=sqr(a+b*x)+a*b*cos(x);
x:=x+1;
until x=21;
 writeln(y:5:3);
end.

Program pr;
uses crt;
var y,x:real;
const a=17.2; b=24.6; x1=2; x2=20; n=10;
Begin clrscr;
x:=x1;
repeat
y:=sqr(a+b*x)+a*b*cos(x);
x:=x+n;
until x<=x2;
Writeln('функция у=', y:6:2);
End.

Program pr;
uses crt;
var y,x:real;
const a=17.2; b=24.6; x1=2; x2=20; n=10;
Begin clrscr;
x:=x1;
while x<=x2 do begin
y:=sqr(a+b*x)+a*b*cos(x);
x:=x+n;
end;
Writeln('функция у=', y:6:2);
End.

Program pr;
uses crt;
var y,x:real;
const a=17.2; b=24.6; x1=2; x2=20; n=10;
Begin clrscr;
x:=x1;
for x:=x1 to x2 do begin
y:=sqr(a+b*x)+a*b*cos(x);
x:=x+n;
end;
Writeln('функция у=', y:6:2);
End.