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

Program programma1;Uses crt;var a: real;beginclrscr;       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;beginclrscr;       write('x = ');       readln(x);   if X>5 then x:=x*x;   if X<5 then x:=x*x*x;   writeln('Ответ: ',x);end.