Впапке находятся 6 файлов. определите какие из них будут отобраны по маске ? ik*.m*nike.mpegbike.mp3iks.mpgbike.mdblike.mpgmikes.mp3​

пред последние,вчера только по информатике проходили это

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами  

Задание 1
Эти микрокоманды вируса заражают дукемты World и Exsell так:
удаление или искажение файлов
засорение оперативной памяти
задание 2
интернет
задание 3
(ответ 2) Программы которые могут "размножается"
задание 4
сетевыми
задание 5
(ответ 3) На сравнении программных кодов с кодами известных вирусов из базы данных антивирусной программы
задание 6
(ответ 4) MS-DOS, MS Word, AVP
задание 7
(ответ 1) Программа-вирус один раз копируется в теле (коде) другой программы
задание
задание 8
Программные средства
задание 9
сетевые вируса
задание 10
Атака- размножение- зарожение