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

Первая: П0 <-> П1 ИП1 ИП0 + П1 ИП0 2 - П0 x=0 03 С/П Вторая: П0 <-> П1 ИП1 ИП0 - П1 ИП0 2 - П0 ИП1 - x<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 x>y; writeln('x = ',x,' y = ',y); end. Пример: x, y: 27 41 x = 25 y = 14