Дано целое число — цена 1 кг конфет. Вывести стоимость 1, 2, … , 10 кг конфет.

Question

Дано целое число — цена 1 кг конфет. Вывести стоимость 1, 2, … , 10 кг конфет.

Answer 1

Var
i,s:integer;
begin
writeln('Введите стоимость');
readln(s);
for i:=1 to 10 do
writeln(i*s);
end.