Ответ будет -32. Условие не выполняется, идем по ветке else потому что 1 не больше чем 3
Var
l: integer;
begin
writeln('Введите длину ребра куба');
readln(l);
writeln('Объём куба равен ', l*l*l);
writeln('площадь поверхности куба равна ',l*l*6);
readln;
end.
Надо перевернуть число 86 точнее получится 98 (86+12=98)