Sabato correzione compito in classe

Oggi abbiamo iniziato la correzione del compito in classe che abbiamo svolto ieri è risultato abbastanza difficilotto speriamo bene.... eccolo qui.. il prof ci ha consegnato una scheda con la risoluzione del:

PUNTO 1
program Risciaquone;
const s=582000000.0;p=9.4;d=365;
var n:word;
begin
for n:=1 to 29 do writeln(1000*s*p/n/d/2/n+0.5:13:0)
end.
PUNTO 4 sul controllo robusto finalmente
Program P4;
uses crt;
var n,e:word; s:string;
procedure puliscilariga;
begin
gotoxy(1,wherey-1);write(' ':80); gotoxy(1,wherey-1);
end;
begin
clrscr;
repeat
repeat
write('Numero di registro (0 x finire):'); readln(S); val(S,N,E);
if (n=0) and (e=0) then exit;
puliscilariga; if lenght(s)>47 then puliscilariga;
until (N mod 1=0) and (N>0) and (n<32) e="0);
gotoxy(wherex+35,wherey); writeln(n,'> ',n:2,'/',n mod 10,'/',n div 10);
until 1=0;
end.