Дано натуральное число меньше 256. Сформировать число, представляющее собой его квадрат.
Program p_1; var a: word; begin readln(a); a := a * a; writeln(a) end. Практики не было давно.