1.Напишите программу , которая определяет по введенной градусной мере развернутый угол или нет. 2.Для данного x вычислить: если x больше 5, то возвести число в квадрат; если x меньше 5, то возвести в куб. ДЛЯ ПАСКАЛЯ!!!

Program programma1; Uses crt; var a: real; begin clrscr;        write('Градусная мера угла a = ');        readln(a); if a>=0 then    begin    if a<>180 then writeln ('Угол не является развернутым')    else  writeln ('Угол является развернутым');    end    else    writeln('Угол не может быть отрицательным'); end. Program programma2; Uses crt; var x: real; begin clrscr;        write('x = ');        readln(x);    if X>5 then x:=x*x;    if X<5 then x:=x*x*x;    writeln('Ответ: ',x); end.