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.
cHJvZ3JhbSBlbGRvbnRlc192YW5lOwpjb25zdCBuID0gMTA7CnZhciBhOmFycmF5IFsxLi5uXSBvZiBpbnRlZ2VyOwogICAgaTogaW50ZWdlcjsKICAgIHZhbjogYm9vbGVhbjsKYmVnaW4KICByYW5kb21pemU7CiAgLy9hIHTDtm1iIGVsa8Opc3rDrXTDqXNlCiAgZm9yIGk6PTEgdG8gbiBkbwogIGJlZ2luCiAgICBhW2ldOj1yYW5kb20oMTApOwogICAgd3JpdGUoYVtpXSwgJyAnKTsKICBlbmQ7CiAgd3JpdGVsbjsKICAvL3Zhbi1lIGJlbm5lIDUtw7ZzPwogIGk6PTE7CiAgd2hpbGUgKGk8PW4pIGFuZCAoYVtpXTw+NSkgZG8KICAgIGk6PWkrMTsKICB2YW46PSBpPD1uOwogIHdyaXRlKCdWYW4tZSBhIHRvbWJiZW4gNS1vcz8gRmVsZWxldDogJyk7CiAgaWYgdmFuIHRoZW4KICAgIHdyaXRlbG4oJ2lnZW4uJykKICBlbHNlCiAgICB3cml0ZWxuKCduZW0uJyk7CiAgcmVhZGxuOwplbmQu