Даны естественные числа X и Y. Вычислить X*Y, пользуясь только операцией

program zz1;

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

begin

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

read(x);  

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

read(y);

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

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

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

end.