10 LINEINPUT "Введите число:";A$
20 Z=VAL(A$):PRINT Z^2