14 lines
304 B
ObjectPascal
14 lines
304 B
ObjectPascal
uses Исполнители;
|
|
|
|
begin
|
|
Файл.ОткрытьНаЗапись('текст.txt');
|
|
Файл.Записать('Информатика');
|
|
Файл.Записать('Математика');
|
|
Файл.Записать('Русский');
|
|
Файл.Записать('Физика');
|
|
Файл.Записать('Русский');
|
|
Файл.Записать('Информатика');
|
|
Файл.Закрыть;
|
|
Файл.ВывестиСодержимое('текст.txt');
|
|
end.
|
|
|