Помогите пожалуйста составить программы на Паскале
1. В файле in.txt записаны в столбик числа, сколько их - неизвестно. Определить и вывести выходной файл out.txt количество чисел, которые являются четными, но не делятся на 10.
2. В файле input.txt записаны в строку отдельные числа, сколько их - неизвестно. Вывести в выходной файл output.txt самое меньшее из них.

Написано в Паскале

1) c++#include <iostream>#include <cstdio>using namespace std;int cnt;int main(){freopen ("in.txt", "r", stdin);freopen ("out.txt", "w", stdout);for (int i = 0; i < 1000; i++)if (i % 2 == 0 && i / 10 != 0)cnt++;cout << cnt;return 0;}