indovina un numero

program indovina_un_numero;
var
c:integer;
ncasuale:integer;
n:integer;
begin
randomize;
c:=0;
n:=0;
writeln('ora penso a un numero e tu dovrai indovinarlo');
ncasuale:=random(99)+1;
while n <> ncasuale do
begin
c:=c+1;
readln(n);
if n < ncasuale then
writeln('il numero che hai scelto e più basso del mio');
if n > ncasuale then
writeln('il numero che hai scelto e più alto del mio');
end;
writeln('complimenti, hai indovinato il numero con',c,'tentativi');
readln;
end.