Подсчитать количество нулевых элементов вектора x(10)

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin   var x: =arrrandom(10,-2,3); x.println;   writeln('нулевых: ',x.where(x-> x=0).count) end. тестовое решение 2 -2 -2 0 0 1 0 2 0 1 нулевых: 4

2^i = 24

i = 5

ответ. 5 лампочек.

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.