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

Вообщем если количество дней вводится с клавиатуры, то первые две строчки после 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.

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.