Сколько файлов с расширением .htm содержится содержится в каталоге файлы 12​

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так

var a: array [1..100] of integer;

i,n: integer;

s: string;

begin

  randomize;

  for i : =1 to 100 do

  begin

      a[i]: = random(1000)+1000;

      a[i]: =a[i] mod 100;

      a[i]: =a[i] div 10;

      if a[i] mod 2 = 0 then n=n+1;

  end;

  writeln(n);

end.

проверяем если n нечетное и n=8 то 31 день

если n четное и n не равно 2 то 30 дней

если n=2 и a=0 то 28 дней

если n=2 и a=1 то 29 дней

я считаю что райверы,утелиты,софт,мультимедиа.надеюсь что это так!