1.дан массив натуральных чисел.вывести на экран все двухзначные числа. 2. в массиве хранятся сведенья об оценках 25-ти учеников по языку.определить количество "5", "4", "3", "2".

Var  Y, a,b,c,d:real;
begin
a:=5;
b:=4;
c:=3;
d:=2;
Y:=('formula');
readln;
end.
Приблизительно как то так, формулу сами подставите что бы определить кол-во 25 человек.

1.
program one
var
i:integer;
mas : array[1..n] of integer;
begin
for i:=1 to n do
begin
if (mas[i] < 100) and (mas[i] > 9) then
writeln(mas[i]);
end;
end.