Сначало делаем массив. Проще всего сделать через рандомазе.
он будет генерировать 3 числа от 1 до 200. Это и будет масса трёх людей в лифте. Потом цикл складывает эти три числа и выводит общую массу.
program dz23;
Var a:array[1..3] of integer;
s,i: integer;
uses crt;
begin
clrscr;
randomize;
S:=0;
for I:=1 to 3 do
begin
a[i]:=random(201);
writeln ( a[i] );
S:=S+a[i];
end;
Write( 'Сумма массы трех челоаек в лифте ' , s);
end.
