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

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




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.