Pascal - Meteorologia

program es;
uses crt;
const n=3;
var citta:array[1..n]of string;
var min:array[1..n]of real;
var max:array[1..n]of real;
var i,numero,opz:integer;
var tempmax,tempmin,m1,m2:real;
PROCEDURE INSERIMENTO;
BEGIN
tempmax:=0;
tempmin:=0;
for i:=1 to n do
begin
writeln('nome ' , i , '^ citt…:');
readln(citta);
writeln('temperatura massima:');
readln(max);
writeln('temperatura minima:');
readln(min);
tempmax:=tempmax+max;
tempmin:=tempmin+min;
end;
END;
PROCEDURE VISUALIZZA;
BEGIN
for i:=1 to n do
begin
writeln('la citt… ' , citta , ' ha temperatura massima di ' , max:0:2, 'ø e temperatura minima di ' , min:0:2 , 'ø');
readln;
end;
END;
PROCEDURE MEDIA;
BEGIN
for i:=1 to n do
begin
m1:=tempmax/n;
m2:=tempmin/n;
end;
END;
PROCEDURE VISUALIZZA_MEDIA;
BEGIN
writeln(' la media delle temperature massime di tutte le citt… Š ' , m1:0:2,'ø ');
writeln('la media delle temperature minime di tutte le citt… Š ' , m2:0:2, 'ø');
readln;
END;
{PROGRAMMA PRINCIPALE}
BEGIN
CLRSCR;
writeln('inserisci numero citt…:');
readln(numero);
REPEAT
WRITELN('INSERIMENTO');
WRITELN('VISUALIZZA');
WRITELN('MEDIA');
WRITELN('VISUALIZZA_MEDIA');
WRITELN('INSERISCI OPZIONE');
READLN(OPZ);
CASE OPZ OF
1:INSERIMENTO;
2:VISUALIZZA;
3:MEDIA;
4:VISUALIZZA_MEDIA;
END;
UNTIL (OPZ=5)
END.