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

1-ая:

П0 lt;-gt; П1 ИП1 ИП0 + П1 ИП0 2 - П0 x=0 03 С/П
Вторая:

П0 lt;-gt; П1 ИП1 ИП0 - П1 ИП0 2 - П0 ИП1 - xlt;0 03 С/П

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 xgt;y;
writeln('x = ',x,' y = ',y);
end.

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