Дан массив из 10 элементов в диапазоне от 0 до 100 найти s элементов, больших 50 и посчитать их количество

Program n1;
var a: array[1..10] of integer;
S,i,k: integer;
begin
randomize;
write('массив: ');
S:=0;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(101);
write(a[i],' ');
end;
writeln;
write('сумма a[i]>50: ');
for i:=1 to 10 do if a[i]>50 then
begin
k:=k+1;
S:=S+a[i];
end;
writeln(S);
write('кол-во: ', k);
end.

1) a = int(input('Введите градусную меру угла:'))

2) if a < 90 and a > 0:

3)     print('Вы ввели градусную меру острого угла.')

4) if a == 90:

5)     print('Вы ввели градусную меру прямого угла.')

6) if a > 90 and a != 180 and a <= 360:

7)     print('Вы ввели градусную меру тупого угла.')

8) if a == 180:

9)     print('Вы ввели градусную меру тупого угла.')

10) if a > 360:

11)     print('Вы ввели слишком большую цифру, повторите попытку.')

12) if a <= 0:

13)     print('Вы ввели слишком маленькую цифру, повторите попытку.')

Объяснение:

1) Задаём переменную "a", которая принимает введенное человеком число.

2) Если "а" меньше 90 и больше 0, то:

3) Выводится в командной строке 'Вы ввели градусную меру острого угла.'

4) Если "a" равно 90, то:

5) Выводится в командной строке 'Вы ввели градусную меру прямого угла.' P.S.: мы ставим 2 знака "=", так как мы не задаем переменную, а ставим условие.

6) Всё тоже самое, но тут мы пишем, что "a" не будет считаться тупым при 180, используя "!=".

7, 8 и 9) Всё тоже самое.

10 - 13) Предсказываем возможные ошибки. Всё тоже самое.

3:

var a,b,c,d,e,f,g:real;

begin

   write('Введите сумму наличных средств (руб): '); readln(a);

   write('Введите стоимость 1 кг конфет (руб): '); readln(b);

   write('Введите массу конфет (кг): '); readln(c);

   write('Введите стоимость 1 кг яблок (руб): '); readln(d);

   write('Введите массу яблок (кг): '); readln(e);

   f := b*c + d*e;

   g := a - f;

   writeln('Стоимость покупки составит ', f:0:2, ' руб.');

   writeln('Сдача ', g:0:2, ' руб.');

end.

4:

var a:real;

begin

   write('Введите длину куба: '); readln(a);

   writeln('Объём куба = ', a*a*a:0:2);

   writeln('Площадь поверхности куба =  ', 6*a*a:0:2);

end.