Write (ndivm +1)
Если не поймете - прокомментирую
^- конъюнкция, знак умножения(×);(операция И)
\/-дизъюнкция, знак сложения(+);(операция ИЛИ)
&-Тоже конъюнкция
Если на Pascal, то:
program qq;
var a,b:integer;
Begin
Write('Введите значение 1 переменной: ');
Read(a);
Write('Введите значение 2 переменной: ');
Read(b);
Write('Произведение двух переменных ',a,' и ',b,' равно: ',a*b);
End.
Var x: integer;
begin
readln(x);
if x > 0 then x := x * x
else x := x * x * x;
writeln(x);
<span>end.</span>