const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
write('Оценки абитуриентов: ');
for i:=1 to n do a[i]:=random(4)+2;
for i:=1 to n do write(a[i]:5);
writeln;
for i:=1 to n do
if a[i]=2 then
inc(k);
write('Не допущены к повторному экзамену ',k,' абитуриента(-ов) ');
<span>end.</span>
у меня получилось 26 треугольников
В установке компьютер получает програмное обеспечение а в загрузке загружает его для дальнейшей работы
Истинные утверждения: Б,д,з,и,к,л