Решите по итв! определить стоимость набора конфет,в который входят: красная шапочка-200 грамм,алые паруса-150 грамм, чародейка-100 грамм.если изветна стоимость этих конфет за 1 кг. решите мне не жалко! !

Var k,a,c,q,sum:real;
Begin
writeln('Vvedite cenu:');
readln(q);
k:=0.2*q;
a:=0.15*q;
c:=0.1*q;
sum:=k+a+c;
writeln('Otvet:',sum);
end.