{* Задача 62 *}

Unit ZADACH62;
Interface
Implementation
Begin
 writeln('Данные о направлении ветра (сев, юж, вост, зап) и силе ветра за декаду ноября хранятся в одномерном массиве. Определить сколько дней дул южный ветер с силой превышающей 8м/с. ');
End.

Program wind;

Uses zadach62.pas; {* Эту строку можно удалить *}
Const {* Предопределенные *}
  days = 10;
  direction = 2;
  str_direction = 'южном';
  speed = 8;
Var {* Объявление переменных *}
  wind_mas    : Array [1..days * 2] Of real;
  i           : integer;
  num_of_days : integer;
Begin
  writeln('Направления ветра:');
  writeln('1 - северный');
  writeln('2 - южный');
  writeln('3 - восточный');
  writeln('4 - западный');
  For i := 1 To days Do {* Увеличиваем i от 1 до days с шагом 1 *}
  Begin
    write('Введите код направления ветра для дня ', i, ' - ');
    readln(wind_mas[i * 2 - 1]);
    write('Введите скорость ветра для дня ', i, ' - ');
    readln(wind_mas[i * 2]);
  End;
  num_of_days := 0;
  For i := 1 To days Do {* Переменная i увеличивается с 1 до days *}
    If (wind_mas[i * 2 - 1] = direction) And (wind_mas[i * 2] > speed) Then
      inc(num_of_days); {* Прибавим к num_of_days единицу *}
  writeln('Ветер в ' + str_direction + ' направлении со скоростью, превышающей ',            speed, ' м/с дул ', num_of_days, ' дней');
End.