program zdashaB; var k,n:integer; f1,f2:text; begin assign(f2,'repair.in'); reset(f2); readln(f2,n); close(f2) assign(f1,'repair.out'); rewrite(f1); writeln(f1,random(5)); close(f1); end.