Дано вещественное число, цена 1 кг конфет. вывести стоимость 1,2, конфет. нарисовать блок схему

Var i,x:integer;
begin;
readln(x);
for i:=1 to 10 do
writeln('Для ',i,' кг нужно ',i*x);
end.