Для уборки используется 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.

Объяснение:

вроде бы на фото все понятно