1. Составьте программу, проверяющую, что введенное число является четным или нечетным
2. Составьте программу, проверяющую, что введенное число делится без остатка на 3

В свое время я за меньшее студентов с экзамена отправлял учить предмет. И закончим на этом.

не понимаю. что тут такого? и в чем тут такая серьезна ошибка? в чем вообще ошибка?

Ошибки нет. Есть непоследовательность в словах и действиях.

чесно говоря я таковой не вижу.

в мелочах все конечно бывает но в основном не вижу

//Задача 1var d:integer;beginreadln(d);if d mod 2 =0 then Writeln('Четное') elseWriteln('Не четное');end.//Задача 2var d:integer;beginreadln(d);if d mod 3 =0 then Writeln('Делится') elseWriteln('Не делится');end.

1)var    i: integer;begin    readln(i);    Writeln('Четное?  - ', i mod 2 = 0);end.2)var    i: integer;begin    read(i);    Writeln('Делится на 3? - ', i mod 3 = 0)end.