Correzione compito

Oggi abbiamo corretto in parte il compito d'informatica di martedì abbiamo visto il p1 che andava svolto così:
program macchia;
const n=23;
var r,v:real;
begin
writeln('Inserire raggio cilindro:');readln(r);
v:=sqr(r)*pi*n;
writeln('Volume macchia:',v);
readln
end.
Per il secondo punto il prof. ci ha suggerito ASTRA un programma che crea praticamente delle mappe che evidenziano la struttura dei nostri personal web site.
Per il punto tre abbiamo iniziato soltanto la pseudocodifica:
N=numero ciclisti
Va inserita una variabile tempo arrivo
Struttura dati array
for i:=1 to n do if c è arrivato then leggi(ta[c]);
ordinta(ta[c]);
for c:=1 to n do if ta[c]=0 then scrivi si è ritirato else write(ta[c])