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

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

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