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

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.