program Noname7; var f:text; a,b,c,d:integer; begin assign(f,'c:\Duom2.txt'); rewrite(f); readln(a,b,c,d); close(f); writeln(a,b,c,d); Readln; end.