Дано целое число, если оно делиться на 3 без остатка то увеличить его на 1;в противном случае уменьшить его на 2.

На паскале

uses crt; {подключение модуля CRT}
var
  x: integer; {описание переменных}
begin {начало программы}
  writeln('vvedi chislo: '); {вывод текста на экран}

  read(x); {чтение введеных данных}
  if (x mod 3 = 0) then x:=x+1 {условие}
    else x:=x-2; {если условие не выполняется}
  write('rezultat: ',x); {вывод текста на экран}
end. {конец программы}