2. Напишите программу, которая запрашивает у пользователя координаты точки и затем рисует квадрат размером 20х20, где введенная точка является координатой левого верхнего угла квадрата. Рисование квадрата оформите в виде процедуры. Для рисования ты можешь использовать следующие команды: - Up() — поднять перо; Down() — опустить перо; Goto(x, y) – переместиться в точку с координатами (x, y).

Program kv;Var a,b,c,x1,x2,x,D: Real;  BEGIN    write ('input a b c =>');    Readln (a,b,c);    if a  = 0 then    if b = 0 then    Begin    Writeln ('The equation is not compatible');    Readln;     Halt
    End else    Begin    x :=-c / b;    Writeln ('Root x=' ,x:8:2);    Readln;    Halt    End else    Begin    D :=Sqr (b) - 4 * a * c;    if D<0 then    Begin    Writeln ('The equation has no real roots'); 
readln;    Halt    End else    Begin    x:=-b /( 2 * a );    if D = 0 then    Begin      Writeln ('Roots are equal x1=x2=', x:8:2);      Readln;        Halt      End;    x2:= Sqrt (D)/(2*a);    x1:= x2 + x;    x2:= x - x2;    Writeln('Roots: x1=',x1:8:2, ' x2= ',x2:8:2)    EndEnd;   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.