Для паскаль 1. проверить является ли число больше 8.

Var
    a: integer;

begin
    readln(a);
    writeln(a > 8);
end.

Program zada4a(input, output);
var a:integer:
begin
writeln ('Введите число.');
read (a);
if a>8 then
writeln ('Число больше 8.')
else
writeln ('Число меньше или равно 8.');
end.