Program Example2; var Rand: array[1… 20] of integer; I,X,NumberX: integer,beginRandomize; writeln ('Masiv slychainix chisel') for I: =1 to 20…

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 исправте ее так что бы работала.