Напишите программы: 1. дано число кратное 7 2. дано число. определить заканчивается ли оно на 0. 3. дано 2 числа найти минимальное.

1) var
a: longint;
begin
readln(a);
if (a mod 7 = 0) then
writeln('YES')
else
writeln('NO');
end.
2) var
a: longint;
begin
readln(a);
if (a mod 10 = 0) then
writeln('YES')
else
writeln('NO');
end.
3) var
a, b: longint;
begin
readln(a, b);
if (a > b) then
writeln('a > b');
if (a < b) then
writeln('a < b');
if (a = b) then 
writeln('a = b');
end.