Question

Программирование линейных алгоритмов. Задача : Дано натуральное число меньше 256.Возвести его в квадрат.

Answer 1

program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end