Даны натуральные числа X и Y. Вычислить 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; / / к сумме х раз прибавляем число у, что равнозначно умножению х * у

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

end.