var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrString(5);
var b := a.Select(t -> t.Length).ToArray;
var n := b.Max;
for var i := 0 to 4 do
Writeln(a[i]:n, b[i]:3)
end.
Вариант 1
Вставка, фигуры, текст. Вставляем текст. Активируем фигуру. Переходим в Формат, жмём Направление текста. Вуаля.
Вариант 2
Создаём таблицу 1×1 . Пишем текст. Активируем эту таблицу. Переходи в Макет, жмём Направление текста. Вуаля. Потом ещё можно в Главной убрать все границы у таблицы, чтобы было прямо один в один как страница.
Вариант 3
Если задача просто распечатать текст по-другому, то можно сделать Разметка, Ориентация, Альбомная.
В любой, у которой основание системы счисления превышает 8.
Pascal ABC
Var
i:integer;
Begin
For i:= 1 to 50 do
Write(i,' ')
End.