Работа с программой паскаль

3 носка,т.к. среди них точно есть пара(в числе 3 есть число 2)

81920 бит : 8 = 10240 байт

10240 байт : 1024 = 10 килобайт

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.

вроде так

смотри схему