user crt;
var
a:array{1 .. 10} of integer;
1: byte;
randomze;
begin
for i:=1 to 10 do begin
a{i}:=random(18)+5;
if (i mod 3=0) then write (a[i], ' ');
end;
end.
Объяснение:
