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

На паскале

var

x: longint;

begin

write ('Введите число ') ;

readln (x) ;

if x mod 3 = 0 then / / Если х делится на 3, то ...

x : = x + 1 / / Увеличиваем х на 1

else / / В противном случае ...

x : = x - 2; / / Уменьшаем на 2

writeln ('Результат: ', x) ; / / Вывод полученого числа

end.

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. {конец программы}