program ReverseLetters;vartext, reversedText: string;i: integer;beginwrite('Введите текст (не более 70 символов): ');readln(text);
reversedText := '';
for i := length(text) downto 1 dobeginreversedText := reversedText + text[i];end;
writeln('Текст в обратном порядке: ', reversedText);end.
program ReverseLetters;
var
text, reversedText: string;
i: integer;
begin
write('Введите текст (не более 70 символов): ');
readln(text);
reversedText := '';
for i := length(text) downto 1 do
begin
reversedText := reversedText + text[i];
end;
writeln('Текст в обратном порядке: ', reversedText);
end.