Programa de menu para coversionar los gramos

program menus;
uses wincrt;
var
op:integer;
a,b,c:real;

begin
 clrscr;
writeln('***Menu para Coversiones de Gramos***');
writeln('');
writeln('Eliga algunas de las opociones presionando numeros del 1 al 4');
writeln('');
Writeln('1- De Gramos a Miligramos');
writeln('2- De Gramos a Kilogramos');
writeln('3- De Gramos a Onzas');
writeln('4- De  Gramos a Toneladas');
readln(op);
if op=1 then
begin
write('');

write('');
writeln('*** Calculo de Gramos a Miligramos ***');
writeln('');
Writeln('Introduzca Gramos ');
readln(a);
b:= (a * 1)*1000;
write('Su Cantidad en Gramos es : ', b:2:0,' Mg');
end
else
if op=2 then
begin
write('');
writeln('*** Calculo de Gramos a Kilogramos ***');
writeln('');
Writeln('Introduzca Gramos ');
readln(a);
c:= a/1000;
write('Su Cantidad en Gramos es : ', c:2:3,' Kg');
end
else
 if op=3 then
begin
write('');
writeln('*** Calculo de Gramos a Onzas ***');
writeln('');
Writeln('Introduzca Gramos ');
readln(a);
c:= a* 0.0352740;
write('Su Cantidad en Gramos es : ', c:2:3,' Onz');
end
else
if op=4   then
begin
write('');
writeln('*** Calculo de Gramos a Toneladas***');
writeln('');
Writeln('Introduzca Gramos ');
readln(a);
c:= a/1000;
write('Su Cantidad en Gramos es : ', c:2:3,' Toneladas');
end
else
if op > 6 then
write('Error Opcion Incorecta');


end.