program rad1;
var Gr, Rad: real;
begin
write('Введите радианы: ');
readln(Rad);
Gr := Rad * 180 / pi;
writeln('Это ', Gr:5:3, ' градусов.'); {3 указывает на количество знаков поcле запятой.}
end.
program rad1;
var Gr, Rad: real;
begin
write('Введите радианы: ');
readln(Rad);
Gr := Rad * 180 / pi;
writeln('Это ', Gr:5:3, ' градусов.'); {3 указывает на количество знаков поcле запятой.}
end.