Насчет 8,все же,посмотрите и подумайте.
В задание должны быть варианты расстановки символов азбуки Морзе, ты их не привёл(-а), так что решить это невозможно.
<span>var a,b: integer;
function NOD(x,y: integer): integer;
begin;
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
</span><span>begin;
readln(a,b);
writeln( 'НОД = ', NOD(a,b) );
end.</span>
Такой вопрос уже был... на этом сайте
Program slovo;
var A,C:string; {Описание строковой переменной}
i:integer;
begin
read(A);
write('Первоначальное слово: ',A);
C:=A; {"копирование" значения длинны строки(т. к. оно в дальнейшем быдет изменено)}
i:=length(A); {Присвоение переменной i значения длинны строки}
A[1]:=A[i]; {Присвоение первому значению значение последнего}
A[i]:=C[1]; {Присвоение последнеe значению значение первого}
write('Полученное слово: ',A);
<span>end.</span>