Программирование линейных алгоритмов. Задача : Дано натуральное число меньше 256.Возвести его в квадрат.
Program p_1; var a: word; begin readln(a); a := a * a; writeln(a) end