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.
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.