Напишите программы:

1. Дано число кратное 7

2. Дано число. Определить заканчивается ли оно на 0.

3. Дано 2 числа найти минимальное.

1) vara: longint;beginreadln(a);if (a mod 7 = 0) thenwriteln('YES')elsewriteln('NO');end.2) vara: longint;beginreadln(a);if (a mod 10 = 0) thenwriteln('YES')elsewriteln('NO');end.3) vara, b: longint;beginreadln(a, b);if (a > b) thenwriteln('a > b');if (a < b) thenwriteln('a < b');if (a = b) then writeln('a = b');end.