Написать программу, которая вводит с клавиатуры 8 символов, организовывает их хранение в одномерном массиве, а затем выводит содержимое массива в обратном порядке
Var a: array [1..7] of char; i: byte; begin for i := 1 to 7 do readln(a[i]); for i := 7 downto 1 do writeln(a[i]); end. Просто:)