Ввести целое число, найти его квадрат, не используя операцию умножения. (Составьт

Var a,a2,i:integer; begin write('a = '); readln(a); a2:=0; for i:=1 to a do a2:=a2+a; writeln(a,'^2 = ',a2); end. Пример: a = 7 7^2 = 49