На фотографии вся программа с вводом случайных чисел в массив. Удачи
1)2.
2)1.
3)3.
4)3.
5)4.
6)3.
7)1.
8)2.
9)2.
10)1.
11)3.
12)1.
13)2.
14)1.
15)4.
16)3.
http://www.industrialnets.ru/files/misc/ascii.pdf
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.
Вроде так