составьте пожалуйста программу для паскаль по этой блок схеме

Question

составьте пожалуйста программу для паскаль по этой блок схеме

---

Answer 1

Program Zn;
var x,y:integer;
Begin
x:=55;
y:=75;
While x<>y do begin
if x>y then x:=x-y
else y:=y-x;
end;
end.

(Проверено и откомпелировано на Pascal.NET);