Var x,y: real;
begin
write('Введите x: ');
readln(x);
y:=x*x*x+2.5*x*x-x+1;
writeln('Ответ ',y);
<span>end.</span>
Var x: integer;
begin
readln(x);
if x > 0 then x := x * x
else x := x * x * x;
writeln(x);
<span>end.</span>
Надо составить массив n*m
где n-номер строки
ввести переменную max
if n>max then max:=n
потом пишешь writeln(n)