Я так понимаю, что производительность не увеличивается, т. е., каждый день рабочий изготавливал по 5 деталей, а корова давала (для остряков: без шуточек!) по 6 литров молока. Да, количество дней вводится вручную с клавиатуры. Если надо, могу переделать под уже готовые значения.1) Program P1;uses crt;var d, i, n: integer;beginclrscr;write ('Введите количество дней: ');readln (d);n:=5;for i:=2 to d do beginn:=n+5;end;write ('За ', d, ' дней рабочий изготовит ', n, 'деталей.');readkey;end.2) Program P2;uses crt;var d, i, n: integer;beginclrscr;write ('Введите количество дней: ');readln (d);n:=6;for i:=2 to d do beginn:=n+6;end;write ('За ', d, ' дней корова даст ', n, 'литров молока.');readkey;end.