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.

Answer 2

не понела