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

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.