program Project2; {$APPTYPE CONSOLE} uses SysUtils; var n,k,l:integer;x,y:text; begin { TODO -oUser -cConsole Main : Insert code here } assign(x,'tesk.in'); assign(y,'tesk.out'); reset(x); readln(x,l); read(x,n); read(x,k); if rewrite(y); write(y,'count.out'); close(x); close(y); end.