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

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