Добавил:
Mendeleev
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
uses stdio;
var
stream:PFILE;
begin
stream := fopen ('junk', 'r');
if stream = nil then
begin
printf('оЕЧПЪНПЦОП ПФЛТЩФШ ЖБКМ junk'#10,[]);
//perror('оЕЧПЪНПЦОП ПФЛТЩФШ ЖБКМ junk');
halt(1);
end;
end.
var
stream:PFILE;
begin
stream := fopen ('junk', 'r');
if stream = nil then
begin
printf('оЕЧПЪНПЦОП ПФЛТЩФШ ЖБКМ junk'#10,[]);
//perror('оЕЧПЪНПЦОП ПФЛТЩФШ ЖБКМ junk');
halt(1);
end;
end.
Соседние файлы в папке 2