Объяснение:
var
y, x, delta : integer;
begin
delta := 3;
x := 2;
while x < 8 do begin
y := 2*x + 3;
x := x+delta;
end;
writeln(y);
end.
