Написать программу к данной блок-схеме.

• Program pr_1;
• 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;
• writeln\('x=',x,'y=',y\)
• end.