//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
//Задание 12.а.
//Сумма первых n натуральных чисел
var s := 0;
var n := ReadlnInteger('введите n');
for var i := 1 to n do s := s + i;
Println(' Cумма первых', n, '=', s);
//Задание 12.г.
//Сумма всех двузначных
s := 0;
for var i := 10 to 99 do s := s + i;
Println(' Cумма всех двузначных', '=', s);
//Задание 13.
//Получаем 10 сл. чисел, выводим на экран
// и получаем среднее арифметическое
var a := ArrRandom(10, 1, 20);
println(a);
println('Среднее арифметическое ', a.Average)
end.