1) Определить, является ли введенное с клавиатуры число четным?

2) Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

1) Первое задание:

var a: integer;

begin

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

readln (a) ;

if (a mod 2 = 0) then

writeln ('Четное число')

else writeln ('Не четное') ;

readln;

end.

2) Второе задание:

program test;

var a: integer;

begin

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

readln (a) ;

if a > 0 then

a: = a + 1;

if a < 0 then

a: = a - 2;

if a = 0 then

a: = 10;

writeln (a) ;

end.