дам аккаунт бравл старс 9000 кубков 2 лег 3 миф, обещяю отдам если решите это 5 задание еще аккаунт фри фаер алмаз 1 дам если решите дайте ответ 5 задание

1) a) 18; б) -20; в) -5.
2) a) -25 < 15; б) -18 < -8.
3) -4, -3, -2, -1, 0, 1, 2.
4) a) 7; б) -11; -1.

Program glg;
var
a:array[1..10] of integer;
min, kol: integer;

begin
i := 0;
kol:=0;
min:= 100000;
while i < 10 do
begin
readln (a[i]);
if a[i] < min then min:= a[i];
end

i:=0;
while i < 10 do
if a[i] = min then kol = kol + 1;
writeln(kol);
end.

Если ошибки будут, пишите в комментарии. Я с телефона писал, мог где-нибудь, да ошибиться. (Написано на Pascal)

Во первых названием.Ярлык это добавленное,а фаил это из загрузок