[Pascal] Losowanie liczb z przedziału 1-9

[bogusik2]

Cześć!

Mam napisać program w pascalu, który będzie losował dwie cyfry z zakresu 1-9, a gdy wylosują się dwie jednakowe wartości, program ma informować o sukcesie.

Jest OK ?

Kod: Zaznacz cały

program losowanie;
uses crt;
var a, b: byte;

Begin
        clrscr;
        randomize;
        a:=1+random(10);
        b:=1+random(10);
        IF a=b THEN Write('Gratulacje! Wygrales!');
        ReadLn;
End.

Jeszcze mam napisać specyfikację problemu - co to jest ? Dokładny opis problemu i działania programu ?

Z góry wielkie dzięki za pomoc

[kadiii]

Program jest napisany prawidłowo. Co do specyfikacji to w podstawowej formie są to : na czym polega problem + dane wejściowe + dane wyjściowe.

[korzenek]

Niestety ale jest drobny błąd
jest random(10)+1
winno być random(9)+1
bo random(k) losuje liczbę z przedziału <0;k-1>