Составить программу осуществляемую перевод величин из радианы в градусную меру или наоборот.

var x: integer; function R(n: integer): real; begin R:=n*3.14/180; end; begin readln(x); writeln(x, ' градусов = ', R(x), ' рад.'); end.