Ежедневно молочная ферма надаивает 1842 литра молока. найдите количество молока, полученного за любой месяц (вводится число дней в месяце).

Uses crt;
var
b,k,a: integer;
begin clrscr;
a:=1842;
write('Введите кол-во дней: ');
read(k);
b:=a*k;
write('Кол-во молока, полученное за данное кол-во дней равно: ',b,' Л.');
end.