program v pascale [pomoc]

vytvorte test na scitanie troch prirodzenych cisle z intervalu 1-10, pricom pocet prikladov nieje dany, ale po vyhodnoteni každeho prikladu je možnosť vyberu dalšieho prikladu alebho ukončenie programu

opakuj: { while }
    vygeneruj tri náhodné čísla { funkcia random }
    vypíš ich ako príklad { funkcia writeln }
    načítaj výsledok { funkcia readln }
    porovnaj zadaný výsledok so skutočným { porovnanie cez if then }
    vypíš výsledok testu { funkcia writeln }
    vypíš výzvu na opakovanie { funkcia writeln }
    načítaj rozhodnutie od užívateľa { funkcia readln }
až kým užívateľ nezadá, že chce skončiť.{ until }