Для уборки используется K комбайнов производительностью A(на/час) и D комбайнов производительностью B (на/час) продолжительность рабочего дня комбайном состовляет Z часов время для ежедневного технического обслуживания каждого комбайна -S часов определить какую площадь уберут комбайны за K дней.( По программированию.)

Program Project1;//кількість днів я взяв за N а площу за ploschad    var A,B,Z,S,N, ploschad:real;      K,D:integer;begin  writeln(vvedit kilkist kombainov tupy K ta proizvoditelnost A);  readln(K,A);    writeln(vvedit kilkist kombainov tupy D ta proizvoditelnost B);  readln(D,B);  writeln(vvedit prodolzitelnost robochego dnja Z ta vrema tex obslyzivannja S);  readln(Z,S);  writeln(vvedit kolichestvo dney N);  readln(N);     ploschad:=(k*a+b*d)*(z-s)*n;     writeln(ploschad=,ploschad:8:2);     readln;
end.

Вообщем если количество дней вводится с клавиатуры, то первые две строчки после begin, которые начинаются на //, раскомментируй(убери эти //) и в строчках:
  SUM := K * SUM;
  writeln(Площадь, которую уберут комбайны за , K, = , SUM);
Замени K, на Days


Программа
-------------------------------------------------------------------------------------------------
var
  K, B, A, D, Z, S, SUM, Days: integer;

begin
  //write(Введите количество дней для расчета: );
  //readln(Days);
  write(Введите количество комбайнов K: );
  readln(K);
  write(Введите производительность комбайна K: );
  readln(A);
  write(Введите количество комбайнов D: );
  readln(D);
  write(Введите производительность комбайна В: );
  readln(B);
  write(Введите продолжительность рабочего дня комбайнов: );
  readln(Z);
  write(Введите время технического обслуживания: );
  readln(S);
  SUM := ((K * A) * (Z - S)) + ((D * B) * (Z - S));
  SUM := K * SUM;
  writeln(Площадь, которую уберут комбайны за , K, = , SUM);
  readln;
end.