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

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.