i,sheng,chun,shou,a:integer;
answer:real;beginassign(input,'save.in'); reset(input);assign(output,'save.out'); rewrite(output);answer:=0; shou:=0; chun:=0;for i:=1 to 12 do
begin
readln(a);
sheng:=shou+300-a;
if sheng=0 then answer:=shou+chun*1.2;writeln(answer:0:0);close(input); close(output);end. |
