program CountFrostyDays;

var
temperatures: array[1..30] of integer;
i, frostyDays: integer;

begin
frostyDays := 0;

// Вводим значения температур за 30 дней
for i := 1 to 30 do
begin
write('Введите температуру за день ', i, ': ');
readln(temperatures[i]);
end;

// Подсчитываем количество морозных дней
for i := 1 to 30 do
begin
if temperatures[i] < -20 then
frostyDays := frostyDays + 1;
end;

writeln('Количество морозных дней: ', frostyDays);
end.