Правила форума
Filesize.PASLanguage:
Русский
English
{Filesize.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the FileSize function. }
var
F: file of Byte;
begin
{ Get file name from command line }
Assign(F, ParamStr(1));
Reset(F);
Writeln('File size in bytes: ', FileSize(F));
Close(F);
end.
::
::
::
