Advertisement
Guest User

Untitled

a guest
May 22nd, 2018
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.38 KB | None | 0 0
  1. var
  2.   f: file of integer;
  3.   i: integer;
  4. begin
  5.  
  6.   assign(f, 'input.txt');
  7.   rewrite(f);
  8.  
  9.   if eof(f) then
  10.   begin
  11.     write(f, 20);
  12.     writeln(20);
  13.   end
  14.   else
  15.   begin
  16.     write(f, 40);
  17.     writeln(40);
  18.   end;
  19.  
  20.   if eof(f) then
  21.   begin
  22.     write(f, 10);
  23.     writeln(10);
  24.   end
  25.   else
  26.   begin
  27.     write(f, 30);
  28.     writeln(30);
  29.   end;
  30.  
  31.  readln();
  32. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement