program eldontes_vane; const n = 10; var a:array [1..n] of integer; i: integer; van: boolean; begin randomize; //a tömb elkészítése for i:=1 to n do begin a[i]:=random(10); write(a[i], ' '); end; writeln; //van-e benne 5-ös? i:=1; while (i<=n) and (a[i]<>5) do i:=i+1; van:= i<=n; write('Van-e a tombben 5-os? Felelet: '); if van then writeln('igen.') else writeln('nem.'); readln; end.