Question

Напишите программу в Pascal

Answer 1

Var
   t,v:integer;
Begin
Write('Введите температуру воздуха(°C): ');ReadLn(t);
if t > -20 then WriteLn('Дети идут в школу')
else if t<-25 then WriteLn('Дети в школу не идут')
     else
        Begin
        Write('Введите скорость ветра(м/с): ');ReadLn(v);
        if v>=7 then WriteLn('Занятия отменяются')
        else WriteLn('Занятия не отменяются');
        End
End.