Составить программу,выводящую на экран слово "Ясно" , если видимое значение давления больше 760 мм.р.ст. и слово "Пасмурно" ,если давление меньше 760 мм.р.ст. (модель барометра)

var P:integer; begin writeln ('Введите значение давления'); readln (P); if (P>760) then writeln ('Ясно') else writeln ('Пасмурно'); end.

Способ 1: Пользователь сам задает значение  program sp1; var i:integer; begin readln(i); if i>760 then writeln('ЯСНО') else  writeln('Пасмурно'); end.   Способ номер 2: программа сама придумывает давление. program sp2; var i:integer; begin randomize; while (i<700)  do  i:=Random(800); Writeln('Программа придумала давление',i); if i>760 then writeln('ЯСНО') else  writeln('Пасмурно'); end.