mariosonuç

program mario;
uses crt;
var i,j: integer;
marioson,veri: TEXT;

begin
clrscr;
assign(veri, 'c:/mario.txt');
reset(veri);

assign(marioson, 'c:/mariosonuc.txt');
rewrite(marioson);

read(veri,i,j);
writeln(i);
writeln(j);
close(marioson);
readln;
end.