Ну, можно к примеру так сделать
Ответ: использовать Робот
1- program odin;var x, y, i,p:integer;beginread(x,y);p:=0;for i:=1 to y dop:=p+x;writeln(p);end.