turbo pascal sobre el sistema metrico decimal a ingles.

Program conversión;
uses
cct;
Var  p,cm : reales;
Begin
crlscr: ( 'ingresa la medida de una pulgada en centímetros');
writeln
readln (p);
writeln ('Ingresa las pulgadas que desea transformar a centímetros');
readln(cm);
a[:] (p*cm) i
writeln ('una pulgada en centímetros es',cm) i
readln;
writeln ('las pulgadas en centímetros son' p: 0: 2);
End.