надеюсь разберетесь что тут к чему, этот кусок кода нужно вставить после строки for i := 1 to n do writeln(r[i]); {Найденный массив}, а после этого вывести измененный массив, сами допишите. Если что-то не понятно смотрите текстовый файл во вложении.
Получение-раскодирование-просмотр
вы получите факториал 5! = 120.
var
f, i:integer;
begin
f := 1;
for i := 1 to 5 do
f := f * i;
writeln (f);
end.
16. а) 101010+1101=110111 б) 1010+1010=10100 в) 10101+111=11100
17. а) 1010*11=11110 б) 111*101=11011 в) 1010*111=1100110