Напешите порограму анализирующию данные датчика скорости которая в случае превышения значения 120 км/ч, выводит сообшение"опасная ситуация"

program zz1;

var c:integer; / / задаем переменные целого типа

begin

c:=0; / / задаем начальное значение для переменной цикла

while c < = 300 do / / организуем цикл, пока переменная цикла не достигнет последнего значения

begin

writeln (' введите данные датчика скорости '); / / вводим с клавиатуры число

read (c);

if c < = 120 / / проверяем условие, если датчик скорости показывает данные меньше чем 120, то

then write (' все нормально, едем дальше ') / / выводим один отве

else begin write (' опасная ситуация '); break; end; / / иначе, выводим другой ответ и прерываем цикл

end;

end.