Question

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

Answer 1

var a,b:integer;
begin
a:=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