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

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