Дано число n от 1 до 1000 и число m вывести результат квадрат целочисленного n на m решить на паскале

Предыдущий
вопрос Следующий
вопрос

program Square
va
n, m, result: integer
begi
write('Введите число n: ')
readln(n)
write('Введите число m: ')
readln(m)
result := n * m * m
writeln('Квадрат целочисленного ', n, ' на ', m, ' равен ', result)
end.

Эта программа на языке Pascal принимает два целочисленных значения n и m, затем вычисляет квадрат целочисленного n на m и выводит результат. Например, если n равно 5, а m равно 3, то результат будет 45.