Question

Составить по алгоритму программу на языке программирования Pascal.

Answer 1

var
  a,b,i:integer;
begin
  a:=5; b:=2;
  for i:=1 to 3 do
    if a>b then a:=a-b else b:=a+b;
  Writeln(a,' ',b)
end.