Дан массив из 10 частей, заполненный случайным образом. Значения частей от

program zz1;
var mas:array[1..10] of integer;
i,p,k:integer;
begin
for i:=1 to 10 do //получаем начальный массив случайным образом от -50 до 50
mas[i]:=random(101)-50;
for i:=1 to 10 do
write(mas[i], ); //выводим полученный массив на экран
writeln; //перебегаем на другую строчку для вывода
for i:=1 to 10 do
begin
p:=mas[i] mod 10; //получаем заключительную цифру числа
if (p=4)or(p=8)or(p=-4)or(p=-8) then begin write(mas[i], );k:=k+1;end;//проверяем, если заключительная цифра 4,-4,8,-8, то выводим это число и считаем его
end;
if k=0 then write(таких чисел нет) // если таких чисел нет, то выводим сообщение
end.