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

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