Дан ряд натуральных чисел от 40 до 90. Вывести на экран только те числа этого ряда, которые оканчиваются на 8 через паскаль

===== PascalABC.NET =====

begin

 40.To(90).Where(p -> p mod 10 = 8).Print

end.

Program pr3;
var poroda:string;
age,holka:real;
n,i,k:integer;
begin
repeat
write ('Введите количесвто собак на выстовке: ');
readln (n);
until n>0;
k:=0;
for i:= 1 to n do
begin
writeln ('Введите по отдельности: породу, возраст и высоту холки очередной собаки: ');
readln (poroda);
readln (age);
readln (holka);
if (poroda='боксер') and (age>=2) and (age<=3) and (holka>=55) then k:=k+1;
end;
if k>0 then writeln('Число боксеров c нужным возрастом и холкой на выставке: ', k)  else writeln ('Боксеров с нужными критриями навыставке не обнаружено');
end.

program z1;

var a:array[1..10] of integer;

i,s:integer;

begin

s:=0;

write('Массив: ');

for i:= 1 to 10 do

begin  

a[i]:=random(1000);  

write(a[i],'  ');

if (a[i]>99) and (a[i]<1000) and (a[i] mod 10 mod 2 = 0) and (a[i] div 100 mod 2 <> 0) then s:=s+a[i]

end;

writeln;

write('Сумма элементов массива среди, трехзначных чисел, у которых последняя цифра четная, первая нечетная: ',s)

end.

Объяснение:

(a[i]>99) and (a[i]<1000) - проверка числа на трёхзначность

(a[i] mod 10 mod 2 = 0) - проверка последней цифры числа на чётность

(a[i] div 100 mod 2 <> 0) - проверка первой цифры числа на нечётность

все условия соединены and, т.к. должны выполняться одновременно