Question

Здравствуйте, никак не могу разобраться с этим паскалем((( Прошу помогите

Answer 1

1)var

 x,y:integer;

begin

 readln(x,y);

 while x<16 do

   if x>y then

     begin

       x:=x-2;

       y:=y+4;

     end

       else

         begin

           x:=x+5;

           y:=y-3;

         end;

 writeln('End.');

 write('x: ', x,' y: ',y);

end.

//Цикл с предусловием

2)var

 x,y:integer;

begin

 readln(x,y);

 repeat

   y:=y+x;

   x:=x-2;

 until x=0;

 writeln('End.');

 write('x: ', x,' y: ',y);

end.

//Цикл с постусловием