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

Var a,b:integer;
begin
a:=5; b:=2*a-2;
if agt;b
 then while not(blt;3) do b:=b-2
 else while not(b-alt;1) do b:=b-1;
writeln(b);
end.

Результат:
5