4. Составить алгоритм и написать решение задачи на Паскале: Целое число вводится пользователем с клавиатуры. Проверить его на четность.

Program test
var
c: integer
begin
readln(c);
if c mod 2 = 0 then writeln("Четное");
else writeln("Нечетное");
end.

Не особо шарю в паскале, поэтому на всякий случай вот на С++:
#include lt;iostreamgt;
using namespace std;
int main()
{
int c;
cin gt;gt; c;
if(c2 == 0) cout lt;lt; "Четное";
else cout lt;lt; "Нечетное";
return 0;
}