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

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<br> else while not(b-a<1) do b:=b-1;<br>writeln(b);
end.

Результат:
5