Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов, равных 1

Var ar:array[1..10] of integer;
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(0,2);
writeln(ar[i]);
if ar[i]=1 then inc(k);
end;
writeln('Result:',k);
end.

Модель "Движение автобусов по маршруту №13"
Цель моделирования: составить оптимальный график интервалов движения автобусов по данному маршруту.
Задача: составить информационную модель для расчета интервалов движения автобуса по маршруту №13.
Тип: табличная информационная модель.
Модель:
Количество перевезенных пассажиров
1 час 2 час 3 час 4 час 5 час 6 час
Автобус 1 15 58 120 55 20 6
Автобус 2 4 65 140 70 21 3
Автобус 3 24 73 200 45 19 11
Автобус 4 12 80 170 60 39 8
Автобус 5 13 67 210 71 24 5
Сумма (чел) 68 343 840 301 123 33
Анализ модели:
1) наибольшее количество человек автобусы перевезли в 3 час работы. автобусы скорей всего были переполнены. Следовательно, в данное время необходимы дополнительные рейсы, возможно использовать большие по размеру автобусы.
2) В 1, 5 и 6 час работы пассажиров было наооборот недостаточно. Следовательно, в данное время нужно пустить автобусы небольшие (маленькой вместимости) для того, чтобы снизить расходы за счет меньшего потребления горючего маленьким автобусом.

Var a,b,r,s1,s2,s3:real;
begin
writeln('a, b, r:');
readln(a,b,r);
s1:=a*a;
s2:=b*b*sqrt(3)/4;
s3:=pi*r*r;
writeln('s1 = ',s1:4:2,' s2 = ',s2:4:2,' s3 = ',s3:4:2);
if (s1>s2)and(s1>s3)
 then writeln('Квадрат имеет максимальную площадь = ',s1:4:2)
 else if (s2>s1)and(s2>s3)
        then writeln('Треугольник имеет максимальную площадь = ',s2:4:2)
        else writeln('Круг имеет максимальную площадь = ',s3:4:2);
end.

Пример:
a, b, r:
5 8 3
s1 = 25.00 s2 = 27.71 s3 = 28.27
Круг имеет максимальную площадь = 28.27