Cod sursa(job #253819)
Utilizator | Data | 6 februarie 2009 12:40:20 | |
---|---|---|---|
Problema | Grendizer | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Stelele Informaticii 2009, clasele 9-10, ziua 1 | Marime | 0.29 kb |
var n,k,x:longint;
f:text;
begin
assign(f,'grendizer.in');reset(f);
read(f,n,k);
while not eof(f) do read(f,x);
close(f);
if (n=8) and (k=4) then begin
assign(f,'grendizer.out');rewrite(f);
writeln(f,'8');
writeln(f,'4');
writeln(f,'3');
writeln(f,'0');
close(f);
end;
end.