Código de Pascal/Turbo Pascal - Conversion de ATM

program ConversionesATM;

uses crt;

var

C1,C2,C3,C4,C5,C6: real;

C: integer;

begin

clrscr;

writeln(' (1) TORRICELES.   (2) ATMÓSFERA.   (3) PASCALES');

readln(C);

if C= 1 then

begin

writeln(' Escribe La cantidad a convertir: ');

readln(C1);

C2:= C1*760;

writeln('El resultado es: ',C2);

readkey;

end;

if C = 2 then

begin

writeln('Escribe el valor de atmósferas: ');

Readln(C3);

C4:= C3*760;

writeln('El resultado es: ',C4);

readkey;

end;

if C = 3 then

begin

writeln('Inserta un valor: ');

readln(C5);

C6:= C5*101325;

writeln('El resultado es: ',C6);

readkey;

end;

readln;

end.