Помогите решить на языке Паскаль. Пожалуйста!

Ответ:

var

 y, x :integer;

begin

 x:=2;

 while x<=8 do begin

   y := 2*x + 3;

   writeln('x=', x, ' y=', y);

   x := x+3;

 end;

end.