<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(30, 0, 99);
a.Println.Sum.Println
end.
Голубой цвет соответствует коду 0 255 255 ргб модели
C:\Мои документы\6 класс\Блинов\Реверат.doc
C:\Фильмы\Сумерки.avi
C:\Мои документы\6 класс\Мальцев\Рисунки\Эскиз.bmp
Program poezd;
var
P,N:integer;
begin
Writeln ('введите данные о вместимости поезда');
Readln(P);
Writeln('введите данные о количестве посылок');
Writeln('количество поездов -равно ', N/P);
End.
Var sum,i : Integer;
Begin
sum:=0;
For i:=1 to 10 do sum:=sum+i;
Writeln(sum);
end.
Но проще всего это считать без циклов - одной строкой:
Begin
Writeln((10+1)*10 div 2);
end.