Найти все четные числа кратные 8 и 10 — Pascal(Паскаль)

var
a:integer;
begin
write('Введите число: ');
readln(a);
if (a mod 8=0)and(a mod 10=0) 
then writeln('Число ',a,' кратно 8 и 10')
else writeln('Число ',a,' не кратно 8 и 10');
end.

var
n,m,j:integer;
begin
writeln('Введите промежуток, в котором будет произведен поиск: ');
Write('Начало поиска');
readln(n);
write('Окончание');
readln(m);
 
For n to m do
if (n mod 8=0)and(n mod 10=0) 
then 
begin
j:=j+1;
writeln('Число ',n,' кратно 8 и 10');
end;
 
If j=0 tneh
writeln('На даном отрезке чисел, кратных 8 и 10 нет');
end.