Правила форума
Assign.PASЯзык:
Русский
English
{ Пример программы для процедуры Assign. Попробуйте использовать
стандартные переназначения DOS на PRN, файл на диске и т.п. }
var
F : Text;
begin
Assign(F, ''); { Стандартное устройство вывода }
ReWrite(F);
WriteLn(F, 'Стандартное устройство вывода...');
Close(F);
end.
F : Text;
begin
Assign(F, ''); { Стандартное устройство вывода }
ReWrite(F);
WriteLn(F, 'Стандартное устройство вывода...');
Close(F);
end.
::
::
::
