Костя и Саша решили заранее узнать, какую оценку в четверти по информатикеим выставит учитель. Костя в течение четверти получил три отметки, а Саша - четыре. Пользоваться калькулятором мальчикам не хотелось, поэтому они написалипрограмму, которая посчитала среднее арифметическое их текущих отметок (этизначения друзья вводили с клавиатуры) и округлила значение до ближайшего целогочисла. Воссоздайте программу, которая бы выполняла задачу решенную мальчиками. Обязательно воспользоваться в программе стандартной функцией округления

Разумеется ведь компьютеру, для того что бы он работал как мы хотим нужна система своего рода программы которые будут следить за курсором, следить за тем нажата ли кнопка на клавиатуре или нет таких программ очень много, но их нужно ведь где-то хранить вот и для этого и существует внешняя память на ней хранится система, если вам интересно и у вас windows то откройте мой компьютер и зайдите на диск С это обычно главный диск далее найдите папку windows и нажмите на него правой кнопкой мыши выберите свойства и вы увидите сколько весит система

Program primer;
Uses crt;

var a,b,c,d: real;

begin clrscr;
      write('Введите длину отрезка a = ');
      readln(a);
      write('Введите длину отрезка b = ');
      readln(b);
      write('Введите длину отрезка c = ');
      readln(c);
      write('Введите длину отрезка d = ');
      readln(d);
     
      writeln;
      if (a<=0) or (b<=0) or (c<=0) or (d<=0) then
         writeln('Длины не могут быть отрицательными или равляться нулю')
        
         else
         begin
      if (a=b) and (a=c) and (a=d) then
         writeln('Отрезки могут быть стороами квадрата')
      else
          writeln('Отрезки не могут быть стороами квадрата');

       if ((a=b) and (c=d)) or ((a=d) and(c=b)) or ((a=c) and (d=b)) then
          writeln('Отрезки могут быть стороами прямоугольника')
       else
       writeln('Отрезки не могут быть стороами прямоугольника');
        end;

      readln;
end.