Помогите решить задачу в паскале фастом

Вот пример программы на Pascal, которая позволяет регистрировать скорость проезжающих автомобилей и выводить минимальную скорость, а также указывает, были ли автомобили, ехавшие со скоростью более 100 км/ч:

 program SpeedCheck; 

 

var 

  speed, minSpeed: Integer; 

  moreThan100: Boolean; 

 

begin 

  minSpeed := 1000; { установим максимально возможное значение минимальной скорости } 

 

  { цикл ввода скоростей } 

  repeat 

    WriteLn('Введите скорость автомобиля в км/ч (или 0, чтобы закончить ввод): '); 

    ReadLn(speed); 

 

    if (speed > 0) then 

    begin 

      { обновляем минимальную скорость, если нужно } 

      if (speed < minSpeed) then 

        minSpeed := speed; 

 

      { проверяем, были ли автомобили, ехавшие со скоростью более 100 км/ч } 

      if (speed > 100) then 

        moreThan100 := True; 

    end; 

  until (speed = 0); { заканчиваем цикл, когда введена нулевая скорость } 

 

  { выводим результаты } 

  WriteLn('Минимальная скорость автомобилей: ', minSpeed); 

  if (moreThan100) then 

    WriteLn('Были автомобили, ехавшие со скоростью более 100 км/ч: да') 

  else 

    WriteLn('Были автомобили, ехавшие со скоростью более 100 км/ч: нет'); 

end.  

Пример работы программы:

 Введите скорость автомобиля в км/ч (или 0, чтобы закончить ввод): 

80 

Введите скорость автомобиля в км/ч (или 0, чтобы закончить ввод): 

120 

Введите скорость автомобиля в км/ч (или 0, чтобы закончить ввод): 

90 

Введите скорость автомобиля в км/ч (или 0, чтобы закончить ввод): 

0 

Минимальная скорость автомобилей: 80 

Были автомобили, ехавшие со скоростью более 100 км/ч: да 

© ChatGPT