Примеры задач на условие и цикл. - Pascal

Формулировка задачи:

Напишите пожалуйста 2-е любые простые задачи 1-ую с условием а 2-ую с циклом! очень надо! (конечно если вам не трудно то можно ещё попросить и блок схемы!=)) Заранее спасибо огромное!

Решение задачи: «Примеры задач на условие и цикл.»

Листинг программы

 Var
 a1,a2,a3,a4:integer;
 f1,f2: text;
 Begin
 Assign(f1,'20000.txt');
 Assign(f2,'res.txt');
 Reset(f1);
 readln(f1,a1,a2,a3,a4);
 rewrite(f2);
 writeln(f2,a1,a1);
 writeln(f2,a2,a2);
 writeln(f2,a3,a3);
 writeln(f2,a4,a4);
 close(f2);
 close(f1);
 end.

Объяснение кода листинга программы

Создаются переменные:
- a1 - целочисленная переменная
- a2 - целочисленная переменная
- a3 - целочисленная переменная
- a4 - целочисленная переменная
- f1 - текстовая переменная для работы с файлами
- f2 - текстовая переменная для работы с файлами
Присваивание файлов переменным:
- f1 получает значение '20000.txt'
- f2 получает значение 'res.txt'
Открытие файла для чтения:
- Файл 20000.txt открывается для чтения
Считывание значений из файла:
- Из файла 20000.txt считываются значения и присваиваются переменным a1, a2, a3, и a4.
Открытие файла для записи:
- Файл res.txt открывается для записи
Запись в файл:
- Значения переменных a1, a2, a3 и a4 записываются в файл res.txt поочередно к каждому значению при этом название переменной повторяется дважды.
Закрытие файлов:
- Файл res.txt и 20000.txt закрываются.