Вы услышите 4 коротких диалога, обозначенных А, В, С и D. Определите, где происходит каждый из этих диалогов. Используйте каждое место действия из списка 1-5 только

Var x,y,p,i:integer;
begin
readln(x,y);
for i:=1 to abs(y) do  p:=p+x;
if y<0 then p:=-p;
writeln(p);
end.