Даны естественные числа x и y вычислить произведение ху используя только

program zz1;

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

begin

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

read(x);  

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

read(y);

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

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

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

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

end.