Задача 12.3. Скласти програму для змiни порядку букв в заданому словi на протилежний.

Program PR1;
Var
  t,t1:string[20];
  l,i:integer;
Begin
  t:='Iнформатика'; {задане слово}
  t1:=''; {шукане слово}
  l:=Length(t); {довжина заданого рядка}
 For i:=l DownTo 1 do
    t1:=t1+Copy(t,i,1);
 WriteLn ('Задане слово - ',t);
 WriteLn ('Шукане слово - ',t1);
End.
Результати роботи програми:
Задане слово - Iнформатика
Шукане слово - акитамрофнI