решить в паскале цикл пока

1)var  

 fack,x: integer;

begin

 x:=0;

 fack:=1;

 while x<>6 do

   begin

   x:=x+1;

   fack:=fack*x;

   end;

   write(fack);

end.

2) var  

x,y: integer;

begin

 x:=4;

 while x<>20 do

 begin

   y:=2*x+7;

   x:=x+4;

   writeln(x,'  ',y);

   end;

end.

Объяснение: