P = 0
print('a')
a = int(input())
print('b')
b = int(input())
z = b
if b < 0:
z = -b
for i in range(1, z+1):
p += a
if b < 0:
p = -p
print('p =', p)
Var
ch,sum,i:longint;
begin
sum:=0;
WriteLn('Вводите числа.');
for i := 1 to 5 do
begin
readln(ch);
inc(sum,ch);
end;
WriteLn('Ответ: ',sum);
end.