Лабораторная работа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.