var
 fich : file of byte;

begin
 Assign(fich, 'codi.exe');
 reset(fich);
 Write('CODI.EXE = ',filesize(fich));
 Close(fich);
end.