Вариант в Excel.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Снимаете защиту, копируете элементы, получаете ответ.
88
В следующий раз можешь просто скопипастить программу в IDE
var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
В задание должны быть варианты расстановки символов азбуки Морзе, ты их не привёл(-а), так что решить это невозможно.