Задано двузначное число. Составьте программу ** языке Паскаль, с помощью которой...

Question

Задано двузначное число. Составьте программу на языке Паскаль, с помощью которой определите, произведение квадратов цифр этого числа

Answer 1

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln(sqr(n mod 10)*sqr(n div 10))
end.