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

var a,b:integer;begina:=5; b:=2*a-2;if a>b then while not(b<3) do b:=b-2 else while not(b-a<1) do b:=b-1;writeln(b);end.Результат:5