Решить на паскале в каждом стакане (200 мл) компота должно быть n граммов сахара. сколько граммов сахара нужно засыпать в трёхлитровую банку? решить !

Const glass = 200;
var n, bottle: integer;

begin
write("Введите кол.-во сахара на стакан в граммах:");
read(n);

bottle = glass*15*n;

writeln(Кол.-во сахара на бутылку объёмом 3л. равняется ", bottle);

end.