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.
Dependiendo el tipo de calculo que el usuario requiera.