Составьте программу с использованием условного оператора, предусмотрите…

{Первый вариант}uses crt; label 1; var a: integer; begin1: write ('Введите азимут в градусах: '); readln (a); if a in [1… 89] then writeln ('Направление: северо-восток'); if a=90 then writeln ('Направление: восток'); if a in [91… 179] then writeln ('Направление: юго-восток'); if a=180 then writeln ('Направление: юг'); if a in [181… 269] then writeln ('Направление: юго-запад'); if a=270 then writeln ('Направление: запад'); if a in [271… 359] then writeln ('Направление: северо-запад'); if a in [0,360] then writeln ('Направление: север'); if a > 360 then begin clrscr; writeln ('Пожалуйста, введите корректное значение.'); goto 1; end; if a < 0 then begin clrscr; writeln ('Пожалуйста, введите корректное значение.'); goto 1; end; end. _______________{Второй вариант}uses crt; label 1; var a: integer; begin1: write ('Введите азимут в градусах: '); readln (a); case a of 0,360: writeln ('Направление: север'); 1… 89: writeln ('Направление: северо-восток'); 90: writeln ('Направление: восток'); 91… 179: writeln ('Направление: юго-восток'); 181… 269: writeln ('Направление: юго-запад'); 270: writeln ('Направление: запад'); 271… 359: writeln ('Направление: северо-запад'); end; if a < 0 then begin clrscr; writeln ('Пожалуйста, введите корректное значение.'); goto 1; end; if a > 360 then begin clrscr; writeln ('Пожалуйста, введите корректное значение.'); goto 1; end; end.