Составить программу перевода (в паскале) радианной меры угла в градусы, минуты и секунды.

Program convert; var  num: real; result: real; begin  write('введи значение в радианах: ');   readln(num);   result: = num * 57.29;   writeln('градусы: ',result);   result: = num * 3437.75;   writeln('минуты: ',result);   result: = num * 206264.99;   writeln('секунды: ',result); end.

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.