Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- f: file of integer;
- i: integer;
- begin
- assign(f, 'input.txt');
- rewrite(f);
- if eof(f) then
- begin
- write(f, 20);
- writeln(20);
- end
- else
- begin
- write(f, 40);
- writeln(40);
- end;
- if eof(f) then
- begin
- write(f, 10);
- writeln(10);
- end
- else
- begin
- write(f, 30);
- writeln(30);
- end;
- readln();
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement