[Fradetti]

Mia cugina fa seconda elementare e deve studiare le tabelline fino al 5, così ho deciso di cogliere due piccioni con una fava e mi son scaricato freepascal e una guida di due pagine in txt per farle un programmino.

Dopo 2 ore di programmazione sono arrivato a questo:

program prova;
uses crt;

var ancora : string;

label prova2;

procedure prova3;
var a1, a2, r, s : integer;

begin
     clrscr;
     writeln;
     writeln;
     writeln;
     a1 := random(5);
     a2 := random(10);
     r := a1 * a2;
     write(a1);
     write(' x ');
     write(a2);
     write(' = ');
     readln(s);
     if s = r then begin
     writeln;
     writeln('Brava!');
     writeln;
     end else begin
     writeln;
     writeln('Asina!');
     writeln;
     end;
end;

begin
     prova2:
            prova3;
            write('Vuoi Continuare? (s/n)');
            readln(ancora);
            if ancora='s' then goto prova2;
end.

Il programma funziona solo che i numeri non sono random

Cosa posso fare?

Grazie

P.s: se ci sono suggerimenti per migliorare il programma ditelo