выполни алгоритм напиши любое число до 10

Question

выполни алгоритм напиши любое число до 10

---

Answer 1

Var a,b:integer;
begin
readln(a);
if a>5 then b:=a+1
else b:=a-2;
writeln(b);
end.

Comments

не понела