Free Pascal

[ilov3]

mam taki kod programu, jest on niedokończony.

program tablica;

var

Liczby : array [1..20] of Byte;

N,i : Byte;

IleZnalezionych : Byte;

begin

randomize;

for i:=1 to 20 do

Liczby[1]:= Random(20)+1;

write('Podaj liczbe od 1 do 20: '); readln(N);

while((N<1)or(N>20)) do

begin

write('Zła wartość. Podaj liczbe z zakresu 1 do 20: '); readln(N);

end;

IleZnalezionych :=0;

writeln; write('Tablica: ');

for i:=1 to 20 do

begin

if Liczby=N then

IleZnalezionych:=IleZnalezionych+1;

end;

write(IleZnalezionych);

readln;

end.

w programie z tego co wiem muszę dodać jeszcze raz

if

bo nie wyrzuca mi żadnych liczb.

pomoże ktoś?

do zamkniecia