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

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