Var x: integer;
begin
readln(x);
if x > 0 then x := x * x
else x := x * x * x;
writeln(x);
<span>end.</span>
1) = 1 Кбайт
2) = 1 Кбайт
3) = 8 Кбайт
4) = 64 Кбайт
5) = 1 Кбайт
6) = 8 Кбайт
7) = 256 Кбайт
Название документа
строка меню
Строка формул
Рабочее поле
Бегунки
Строка состояния
Заголовки столбцов
Заголовка строк
Листы
Адрес ячейки
Общие элементы: Название документа, Строка меню, Строка состояния, Рабочее поле, бегунки
Ну, без высоты же не обойтись
var
a, b, h: <em>real</em>;
begin
readln(a, b, h);
writeln('S = ', (a * 0.5 + b / 2) * h);
<span>end.</span>
Они оба нарушают закон, как распространители вредоносного и нелицензионного ПО