Question

Умоляю даю 50 баллов!!!! Сделать из этой блок схемы программу на языке паскаль (с русским) умоляю!!! ​

Answer 1

Не совсем понятно, что вы подразумевается под (с русским)

var

x,y:integer;

begin

readln(x,y);

while y<=10 do

begin

if x<=y then

begin

x:=x+1;

y:=y-1;

end

else begin

x:=x-5;

y:=y+5;

end;

end;

writeln(x,' ',y);

end.