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