Лабораторная работа4

uses crt;
var m:array [1..10] of integer;
k,i:integer;
e:boolean;
begin
clrscr;
writeln('vvedite chislo');
readln(k);
for i:=1 to 10 do
begin
writeln('vvedite element massiva');
readln(m[i]);
end;
e:=false;
for i:=1 to 10 do
if ((m[i] mod k)=0)and(m[i]>0) then
e:=true;
if e=true then
writeln('est takie chisla')
else
writeln('net takih chisel');
readkey;
end.