Вариант 1
Вставка, фигуры, текст. Вставляем текст. Активируем фигуру. Переходим в Формат, жмём Направление текста. Вуаля.
Вариант 2
Создаём таблицу 1×1 . Пишем текст. Активируем эту таблицу. Переходи в Макет, жмём Направление текста. Вуаля. Потом ещё можно в Главной убрать все границы у таблицы, чтобы было прямо один в один как страница.
Вариант 3
Если задача просто распечатать текст по-другому, то можно сделать Разметка, Ориентация, Альбомная.
var
x, n:integer;
begin
write('n = ');
readln(n);
x := n mod 10;
n := n div 10;
while n > 0 do
begin
if n mod 10 < x then
begin
writeln('Последовательность неупорядочена по возрастанию');
readln;
Exit;
end;
x := n mod 10;
n := n div 10;
end;
writeln('Последовательность упорядочена по возрастанию');
readln;
end.
Ввести массив
проверяет условие и выводит количество чисел:
<span>for i:=1 to 12 <span>do
</span></span>k=0;
if (A[i] mod 5=0) and (A[i] mod 3=0) then k=k+1;
writeln(k); end.
<span>в карандаше графит .его свойства: Хорошо проводит </span>электрический ток<span>.</span><span> Цвет тёмно-серый, </span>блеск<span> металлический.<span>Неплавкий, устойчив при нагревании в отсутствие воздуха.</span><span>В </span>кислотах<span> не растворяется. Жирный (скользкий) на ощупь.</span></span>
//PascalABC.NET 3.4.2
begin
var str := readstring('Введите строку:').ToWords;
var ch := readchar('Введите букву:');
str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;
end.