26 скорее всего, учили когда-то
Program n1;
var n: real;
begin
write('введите число: ');
readln(n);
if n>0 then writeln(n*n) else writeln(n*n*n);
end.
Потому что она позволяет проводить вычисления с данными, представленными в виде двумерных массивов, имитирующих бумажные таблицы.
For i:=n downto 1 do write (mas[i], ' ');
n - количество чисел в массиве
Пердык пук пук пук пук пукпупкпупк пукпу кпук