Алгоритм видкриття контекстного меню

Нажать на объекте правую кнопку мыши

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin   var a: =readalllines('in.txt')[0].tointegers;   writeln('исходный набор отметок'); a.println;   var k3: =a.where(x-> x=3).count;   var k4: =a.where(x-> x=4).count;   var k5: =a.where(x-> x=5).count;   writeln('троек- ',k3,', четверок- ',k4,', пятерок-',k5) end. тестовое решение исходный набор отметок 3 4 4 5 5 3 4 4 5 4 3 5 5 3 5 3 4 3 3 4 5 4 4 3 4 4 3 4 5 4 троек- 9, четверок- 13, пятерок-8 файл с отметками in.txt дан во вложении.

Program lab5; const n=5; var p: array [1..n,1..n] of real; i, j : integer;   begin randomize; writeln('исходный массив p: '); for i: =1 to n do    begin   for j: =1 to n do   begin   p[i,j]: =10*random;   write(p[i,j]: 5: 1);   end;   writeln;   end; for i: =1 to n do    for j: =1 to n do   if j> i then p[i,j]: =0 else p[i,j]: =round(p[i,j]); writeln('изменённый массив p: '); for i: =1 to n do    begin   for j: =1 to n do write(p[i,j]: 5: 1);   writeln;   end; end. пример: исходный массив p:   6.0   6.5   4.2   0.6   4.6   5.7   8.8   0.3   6.2   9.0   3.0   5.3   4.0   6.0   4.8   6.0   3.0   5.0   5.3   8.7   8.9   8.8   6.8   5.3   5.1 изменённый массив p:   6.0   0.0   0.0   0.0   0.0   6.0   9.0   0.0   0.0   0.0   3.0   5.0   4.0   0.0   0.0   6.0   3.0   5.0   5.0   0.0   9.0   9.0   7.0   5.0   5.0