programma pascal x il calcolo della pressione in un liquido

program pressione_nellacqua;
uses crt;
var profondita,densita,pressione,e,forza,area:real;
d:integer;
label 1;
begin
1: clrscr;
writeln ('scegli il tipo di liquido nel quale vuoi sapere la pressione digitando il numero corrispondente');
writeln ('1. acqua marina ');
writeln ('2. acqua pura');
writeln ('3. alcol etilico');
writeln ('4. benzina');
writeln ('5. glicerina');
writeln ('6. mercurio');
writeln ('7. olio d''oliva');
writeln ('8. petrolio');
readln (d);
case d of
1: e:=1030;
2: e:=1000;
3: e:=980;
4: e:=720;
5: e:=1260;
6: e:=13600;
7: e:=920;
8: e:=790;
else goto 1;
end;
writeln ('inserisci la profondit… dalla quale vuoi conoscere la pressione, inserisci i dati in metri');
readln(profondita);
pressione:=profondita*e*9.8;
writeln (pressione:8:2,'Pa');
writeln ('scrivi l''area di cui vuoi scoprire la forza,scrivi dati in mq');
readln (area);
forza:=area*pressione;
writeln ('la forza in quella determinata area Š',forza:2:8);
readln;
end.