Даны натуральные числа x и y вычислить произведение ху используя лишь операцию сложение решить задачу двумя способами

program zz1;

var x, y, z, s:integer; / / задаем переменные целого типа

begin

write (' введите первое число x '); / / вводим с клавиатуры первое число

read (x);

write (' введите второе число y '); / / вводим с клавиатуры второе число

read (y);

for z:=1 to x do / / организуем цикл на х повторений

s:=s + y; / / к сумме х раз прибавляем число у, что равнозначно умножению х * у

writeln (' 1 способ - X*Y, пользуясь только операцией сложения = ', s); / / выводим ответ

write (' 2 способ - X*Y, не пользуясь только операцией сложения = ', x*y);

end.