Var
text : string;
i : integer;
begin
write('Введите текст: ');
readln(text);
write('Результат: ');
for i := length(text) downto 1 do
write(text[i]);
<span>end. </span>
<span> Команды которые выполняются строго по порядку, от первего до последнего называется линейным оператором</span>
1) начало
2) вводится целое число n
3) если остаток от деления n на 2 равен 0, то печатается сообщение ' 'Число чётное', иначе на печать выдаётся сообщение 'Число нечётное'
4) конец
100 раз решал подобные задачи
var
n:integer;
begin
readln(n);
if (n mod 10 = 1) AND ((n mod 100) div 10 <> 1) then
writeln(n,' год')
else
if (n mod 10 > 1) AND (n mod 10 < 5) AND ((n mod 100) div 10 <>1) then
writeln(n,' года')
else
writeln(n,' лет');
end.