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

program gt;var a:array[1..7]of integer;k,i,q:integer;beginread(k);q:=0;for i:=1 to 7 doread(a[i]);for i:=1 to 7 dobeginif(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.