program Square;
var
n, m, result: integer;
begin
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.