Напишите пожалуйста программы к данным блок схемам

1. Программа на паскале (возможно зацикливание):
var x,y: integer;
begin
writeln('x, y:');
readln(x,y);
repeat
y:=y+x;
x:=x-2;
until x=0;
writeln('x = ',x,' y = ',y);
end.

Пример:
x, y:
10 15
x = 0 y = 45

2.
var x,y: integer;
begin
writeln('x, y:');
readln(x,y);
repeat
y:=y-x;
x:=x-2;
until x>y;
writeln('x = ',x,' y = ',y);
end.

Пример:
x, y:
27 41
x = 25 y = 14