//фам№2Ввести с клавиатуры число а, если оно больше нуля, то вывести его и сообщение ,
// иначе вывести сообщение, что оно не больше нуля.
//фам№3Ввести с клавиатуры число а, если оно больше 100 или ровно, то вывести его
// иначе вывести сообщение, что оно меньше 100.
//фам№4Ввести с клавиатуры число а, если оно кратно 7, то вывести его и сообщение ,
// иначе вывести сообщение, что оно не кратно 7.
//фам№5Ввести с клавиатуры число а, если оно четное и кратное 5, то вывести его и сообщение ,
// иначе вывести сообщение, что оно не удовретволяет условия.
ПРИМЕРЫ ЗАДАЧ
var a,b: integer;
begin
a := 10;
b := 5;
if a > b
then
Writeln('a больше b')
else
Writeln('a не больше b');
end.
//фам№1Ввести с клавиатуры число а, если оно четное, то вывести его и сообщение ,
// иначе вывести сообщение, что оно нечетное.
var a: integer ;
begin
read(a);
if a mod 2 = 0
then
writeln(' число четное', a)
else
writeln(' число не четное', a) ;