rotest.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 19 行

program test;
var f,g:text;
    a,b,max:integer;
begin
assign (f,'numere.in');
reset(f);
assign (g,'numere.out');
rewrite(g);
while not eof(f) do
                 begin
                 readln(f,a,b);
                 if a>b then max:=a
                        else max:=b;
                 writeln(g,max);
                 end;
                 close(f);
                 close(g);

end.