ВУЗ:
Составители:
Рубрика:
0: writeln('ok');
1: writeln('Wrong answer');
2: writeln('Fresentation error');
end;
Halt(code);
end;
procedure ReadData; {считываем N из input.txt}
begin
Assign(input,cInFile);
Reset(Input);
Readln(N);
Close(input);
end;
procedure WriteData;{помещаем результат С в
output.txt}
begin
Assign(output,cOutfile);
rewrite(Output);
write(output,C);
close(output);
end;
procedure CheckData; {открываем файл для чтения и
проверяем на наличие
ошибок}
var
UU:char;
begin
Assign(input,cOutfile);
{$I-}
reset(input);
{$I+}
if (ioresult<>0) then Opa(2);
if eof(input) then Opa(2);
Read(uu);
if UU<>c then Opa(1);
close(input);
opa(0);
end;
