// PascalABC.Net
var a: array [1..20] of integer;
i, count: integer;
begin
for i := 1 to 20 do
begin
a[i] := random(1, 50);
write(a[i]:4);
end;
writeln();
count := 0;
for i := 1 to 20 do
begin
if a[i] = 4 then
inc(count);
end;
writeln('Число 4 встречается в массиве ', count, ' раз.');
end.