Cod sursa(job #253804)

Utilizator radupoenaruPoenaru Radu Constantin radupoenaru 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.