Напишите пожалуйста программы с циклами for, repeat, while для этого условия

Ответ:

var x,y,i:integer;

begin

y:=-7;

for i:=1 to 39 do

begin

x:=y+7;

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

y:=y+3

end

end.

var x,y:integer;

begin

y:=-7;

repeat

x:=y+7;

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

y:=y+3

until y>107

end.

var x,y:integer;

begin

y:=-7;

while y<=107 do

begin

x:=y+7;

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

y:=y+3

end

end.