1.Напишите программку , которая определяет по введенной градусной мере развернутый угол

Program programma1;
Uses crt;

var a: real;

begin
clrscr;
       write('Градусная мера угла a = ');
       readln(a);
if agt;=0 then
   begin
   if alt;gt;180 then writeln ('Угол не является развернутым')
   else  writeln ('Угол является развернутым');
   end
   else
   writeln('Угол не может быть отрицательным');
end.



Program programma2;
Uses crt;

var x: real;

begin
clrscr;
       write('x = ');
       readln(x);

   if Xgt;5 then x:=x*x;
   if Xlt;5 then x:=x*x*x;

   writeln('Ответ: ',x);
end.