program tesio; {$APPTYPE CONSOLE} uses SysUtils; var scelta:char; scelta2:char; scelta3:char; annocorrente:integer; annodinascita:integer; eta:integer; orale1:integer; orale2:integer; orale3:integer; scritto1:integer; scritto2:integer; scritto3:integer; mediaorale:real; mediascritta:real; mediatotale:real; begin writeln('tesio'); writeln; writeln; writeln('gabriele'); write('digitare m per maschio e f per femmina: '); readln(scelta); if scelta='m' then writeln('sesso M') else writeln('sesso F'); write('digitare l'' anno corrente:'); readln(annocorrente); write('digitare il proprio anno di nascita: '); readln(annodinascita); writeln; eta:=annocorrente-annodinascita; writeln('la tua eta'' attuale e'' di: ',eta,' anni'); writeln; write('inserisci il primo voto orale di informatica: '); readln(orale1); if orale1<1 then writeln('errore'); if orale1>10 then writeln('errore'); write('inserisci il secondo voto orale di informatica: '); readln(orale2); if orale2<1 then writeln('errore'); if orale2>10 then writeln('errore'); write('inserisci il terzo voto orale di informatica: '); readln(orale3); if orale3<1 then writeln('errore'); if orale3>10 then writeln('errore'); write('inserisci il primo voto scritto di informatica: '); readln(scritto1); if scritto1<1 then writeln('errore'); if scritto1>10 then writeln('errore'); write('inserisci il secondo voto scritto di informatica: '); readln(scritto2); if scritto2<1 then writeln('errore'); if scritto2>10 then writeln('errore'); write('inserisci il terzo voto scritto di informatica: '); readln(scritto3); if scritto3<1 then writeln('errore'); if scritto3>10 then writeln('errore'); writeln('digitare a per la media orale, b per la media scritta, c per la media totale'); readln(scelta2); if scelta2='a' then begin mediaorale:=(orale1+orale2+orale3)/3; writeln('la tua media orale e'': ',mediaorale); end; if scelta2='b' then begin mediascritta:=(scritto1+scritto2+scritto3)/3; writeln('la tua media scritta e'': ',mediascritta); end; if scelta2='c' then begin mediatotale:=(orale1+orale2+orale3+scritto1+scritto2+scritto3)/6; writeln('la tua media totale e'': ',mediatotale); end; write('scrivi a per avere i voti piu'' alti, b per i piu'' bassi: '); readln(scelta3); if scelta3='a' then begin if (orale1>orale2) and (orale1>orale3) then writeln('il tuo voto piu'' alto di orale e'': ',orale1); if (orale2>orale1) and (orale2>orale3) then writeln('il tuo voto piu'' alto di orale e'': ',orale2); if (orale3>orale2) and (orale3>orale2) then writeln('il tuo voto piu'' alto di orale e'': ',orale3); if (scritto1>scritto2) and (scritto1>scritto3) then writeln('il tuo voto piu'' alto di scritto e'': ',scritto1); if (scritto2>scritto1) and (scritto2>scritto3) then writeln('il tuo voto piu'' alto di scritto e'': ',scritto2); if (scritto3>scritto2) and (scritto3>scritto1) then writeln('il tuo voto piu'' alto di scritto e'': ',scritto3); end; if scelta3='b' then begin if (orale1