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

спасибо огромное

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.