Дано натуральное число меньше 256. сформировать число, представляющее собой его квадрат.

Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end.
Практики не было давно.