Ввести слово и вывести его в обратном порядке.
+ составить блок-схему(не обязательно, но желательно).

менее затратно по памяти и по времени, это идти до половины слова и менять местами первую и последнию букву

program zadacha;var slovo1,slovo2:string; i:integer;beginwrite('Введите слово: ');readln(slovo1);slovo2:=' ';for i:=1 to length(slovo1) do slovo2:=slovo1[i]+slovo2;write('Слово в обратном порядке: ',slovo2);end.