При температуре воздуха зимой до -20°с потребление угли тепловой станцией составляет k тонн в день при температуре воздуха от -30° с до -20° с дневное потребление увеличивается на 5 тонн, если температура воздуха ниже -30° с, то потребление увеличивается еще на 7 тонн. составить таблицу потребления угля тепловой станцией за неделю. сколько дней температура воздуха была ниже -30° с?

Program gt;
var a:array[1..7]of integer;
k,i,q:integer;
begin
read(k);
q:=0;
for i:=1 to 7 do
read(a[i]);
for i:=1 to 7 do
begin
if(a[i]>-20)then writeln(i,' день ',k,' тонн угля');
if(a[i]<=-20)and(a[i]>=-30)then writeln(i,' день ',k+5,' тонн угля');
if(a[i]<-30)then writeln(i,' день ',k+12,' тонн угля');
if(a[i]<-30)then q:=q+1;
end;
writeln(q,' дней температура было ниже -30');
end.