1). дано целое число х. составьте программу которая выясняет верно ли что 0 больше или равно х и больше 1. 2). дано целое число п. составьте программу которая выясняет является им значение п кратное 3.

Условие первой программы не совсем понятно. Вот вторая:
Program atg;
var p:integer;
begin
readln(p);
writeln('число=',p);
if p mod 3=0 then
writeln('число кратно 3') else 
writeln('число не кратно 3');
end.