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

Требуемый язык нужно указывать в задании (если это принципиально).

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