Correzione...

Esercizio n^4 della verifica di informatica

program p4;
uses crt;
var n,e:word; s:string;
procedure puliscilariga;
begin
gotoxy(1,wherey-1); write(' ':80); gotoxy(1,where-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 length(s)>47 then puliscilariga;
until (N mod 1=0) and (N>0) and (n<32) and (e=0);
gotoxy(wherex+35,wherey); writeln(n,'> ',n:2,'/',n mod 10,'/',n div 10);
until 1=0;
end.