Дано натуральное число n. вывести квадраты цифр заданного числа.

Var
   n:integer;
Begin
Write('n = ');
ReadLn(n);
While n > 0 do
   Begin
   Write(Sqr(n mod 10),' ');
   n:=n div 10
   End;
End.