Program Example2;var Rand: array[1..20] of integer; I,X,NumberX:integer,beginRandomize;writeln(Masiv slychainix chisel)for I:=1 to 20 dobeginRand[I]:random(50);write(Rand[I]:4)end;writeln; write(Vvedite X:));readln(X);NumberX:=0;for I:=1 to 20 doif Rand(I)=Xthen NumberX:=NumberX+1;if NumberX=0then writeln(V masice net chisla ,X) else writeln(Chislo ,X,v masive prisytsvyet ,NumberX,paz) end.Это программа из учебника, но она не работает на Pascalе ABC исправте её так что бы работала.

Program Example2;
var Rand: array[1..20] of integer;
I,X,NumberX:integer;
begin
Randomize;
writeln(Masiv slychainix chisel);
for I:=1 to 20 do
begin
Rand[I]:=random(50);
write(Rand[I]:4)
end;
writeln;
write(Vvedite X:);
readln(X);
NumberX:=0;
for I:=1 to 20 do
if Rand[i]=X
then NumberX:=NumberX+1;
if NumberX=0
then writeln(V masice net chisla ,X)
else writeln(Chislo ,X,v masive prisytsvyet ,NumberX,paz)
end.
Ошибок то 4-5... скобка лишняя, массив не был описан правильно и точка с запетой не стояла