1. задание создайте электронную таблицу по образцу. 2. Задание: сохраните ее под своим именем в папке Мои документы.
Задание 3. создайте соответствующие диапазоны с именами рабочий тариф отработано начислено

Const
  nn=50; // максимальное количество учеников
var
  i,n,sm,sd,km,kd:integer;
  am,ad:real;
  var a:array[1..nn] of integer;
begin
  Write('Введите количество учеников: ');
  Read(n);
  Writeln('Введите рост учеников');
  sm:=0; sd:=0; km:=0; kd:=0;
  for i:=1 to n do
    begin
    Read(a[i]);
    if a[i]>0 then begin sd:=sd+a[i]; Inc(kd) end
    else begin sm:=sm-a[i]; Inc(km) end
    end;
  am:=sm/km; ad:=sd/kd;
  Write('Средний рост мальчиков (',am:0:1,') ');
  if am-ad<=10 then Write('не ');
  Writeln('превышает средний рост девочек (',ad:0:1,') ');
  Writeln('больше, чем на 10 см')
end.
   
Примерное решение

Введите количество учеников: 9
Введите рост учеников
-192 165 -174 179 -172 171 169 170 -170
Средний рост мальчиков (177.0) не превышает средний рост девочек (170.8)
больше, чем на 10 см

Program uva;
 var m,k:integer; //объявляются переменные, отвечающие за вес пакетов
begin
 write('Введите массу первого пакета'); 
 read(m); //ввод массы первого пакета
write ('Введите массу второго пакета');
read (k); //ввод массы второго пакета
 if m>k then 
  write ('Масса первого пакета больше второго и равна ', m) 
 else if k>m then
  write ('Масса второго пакета больше первого и равна ', k)
 else write ('Массы пакетов одинаковы и равны ', m); //если масса первого       //пакета больше, то она выводится на экран иначе если масса второго пакета //больше, то она выводится на экран иначе массы равны и выводится на       //экран любия из этих масс
end.