Відповідь:
var butiki:integer;
begin
writeln('Введите количество бутербродов:\n');
read(butiki);
writeln('Для приготовления ',butiki,' бутербродов необходимо ',butiki*30 div 1000,' кг ',butiki*30 mod 1000,' грамм колбасы.');
end.
