Подробное решение задачи внутри вложенного файла
Program z1;
Var c,i:integer;
Begin
Read (n,i);
If not(c=2) then
For i to 0 do
begin
c:=c+1;
i:=i-2;
end;
writeln(n);
end.
Текстовый: doc, txt, docx, ttf (формат компьютерных шрифтов, не знаю, подходит ли он)
графический: jpg, tiff
видео: mov, mpg, avi
звуковой: wav, mp3