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.
//Цикл с постусловием
