program dipole;
var f: real;
  target: file;

begin
writeln('Calculate Dipole length from frequency.');
write('Enter frequency (MHz): '); readln(f);
writeln('Dipole: ',trunc(468/f):3,chr(39),' ',round(12*((468/f)-int(468/f))),'"') ;
assign(target,'run.chn');
chain(target)
end.