Данное задание выполняется в программе PascalABC.Net. Поэтому я даю за него такое кол-во баллов. Если вы заранее не знаете, как это решается, то ничего не пишите. Те, кто работал с этой программой, прошу помочь. Заранее спасибо.
Написать программы для решения задач. Условия в программе - обязательно.
1. Дано целое число. Определить:
a. является ли оно четным;
b. оканчивается ли оно цифрой 7;
c. оканчивается ли оно четной цифрой?
2. Даны радиус круга и сторона квадрата. У какой фигуры площадь больше?
3. Даны объемы и массы двух тел из разных материалов. Материал какого из тел имеет большую плотность?
4. Известны два расстояния: одно в километрах, другое - в футах (1 фут = 0,45 м). Какое из расстояний меньше?
Внимание! Любые попытки получить баллы "на халяву", я буду отмечать, как нарушение.

Var b,c:boolean;
a:integer;
begin
readln(a);
writeln(not odd(a));
if a mod 10 = 7 then b:=true;
writeln(b);
writeln(not odd(a mod 10));
end.

var r,a:integer;
begin
read(r,a);
if a*a>pi*r*r then writeln(Square)
else if a*aelse writeln(Equal);
end.

var m1,m2,v1,v2:integer;
begin
read(m1,v1,m2,v2);
if m1/v1>m2/v2 then writeln(p1>p2)
else if m1/m2else writeln(p1=p2);
end.

var a,b:real;
begin
read(a,b);
b*=0.45;
if a>b then writeln(b)
else if aelse writeln(Equal);
end.