Cod sursa(job #253804)
Utilizator | Data | 6 februarie 2009 12:34:56 | |
---|---|---|---|
Problema | Caramizi | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Stelele Informaticii 2009, clasele 9-10, ziua 1 | Marime | 0.31 kb |
var n,k,x,i:longint;
f:text;
begin
assign(f,'caramizi.in');reset(f);
read(f,n,k);
while not eof(f) do read(f,x);
close(f);
if (n=5) and (k=5) then begin
assign(f,'caramizi.out');rewrite(f);
writeln(f,'15');
writeln(f,'40');
writeln(f,'40');
writeln(f,'42');
writeln(f,'45');
close(f);
end;
end.