Дана программа на языке Паскаль.
Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 70, то «лёгкая категория» иначе «средняя категория». Заполните пустые окошки.

program ves;
const
A1='легкая категория';
A2='средняя категория';
var
s : integer;
begin
write('введите вес спортсмена (?)
= ');
readln(?)
);
if
(f < 61)
<
(?)then writeln(A1) else writeln(A2);
readln;
end.

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var a:=106.Step(6).Take(15).ToArray; a.Println
end.

Результат
106 112 118 124 130 136 142 148 154 160 166 172 178 184 190

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var b:=ArrRandom(30,-50,50); b.Println;
  var a:=ReadInteger('Введите число А:');
  Writeln('Сумма отрицательных: ',b.Where(x->x<0).Sum);
  Writeln('Cумма положительных, не больших ',a,', равна ',
    b.Where(x->(x>0) and (x<=a)).Sum)
end.

Пример
-21 12 8 50 -47 35 45 -2 -30 -33 3 12 41 -29 8 2 -24 -44 -50 -2 -13 -32 33 -29 35 -43 20 -44 42 -3
Введите число А: 36
Сумма отрицательных: -446
Cумма положительных, не больших 36, равна 168

// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a:=a.Select(x->x div 2).ToArray;
  a.Println;
  var k1,k2:integer;
  Write('Введите k1,k2 (k1<=k2<=',a.Length,'): '); Read(k1,k2);
  Writeln('Произведение элементов с номерами [',k1,':',k2,'] равно ',
    a[k1-1:k2].Aggregate(biginteger(1),(m,n)->m*n))
end.

Пример
n= 13
12 34 -4 -18 23 45 -7 49 47 11 -24 39 31
6 17 -2 -9 11 22 -3 24 23 5 -12 19 15
Введите k1,k2 (k1<=k2<=13): 3 8
Произведение элементов с номерами [3:8] равно -313632