Вот, во вложении вся программа, (на free-pascal компиляция и запуск), а файлы, я думаю, вы сами сможете добавить, спрашивайте, если не понятно, удачи
Var n,pr,a:integer;
begin
readln (n);
pr:=1;
repeat
read(a);
if (a>=-2) and (a<=2) then pr:=pr*a;
n:=n-1;
until n=0;
write (pr);
end.
Ответ:
Объяснение:
1. Звуковой, графической, текстовой.
3. логическая связка для поиска по любому из слов