Program zadacha1;

Var a, b, c, p, s:integer;

Begin

Readln (a, b, c) ;

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

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

writeln (s) ;

end.

в чем проблема?

Проблема в описании переменной s. Функция sqrt дает вещественный результат, поэтому тип s должен быть вещественный (и для p лучше вещественный) :

Var a, b, c:integer;

p, s:real;

Begin

Readln (a, b, c) ;

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

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

writeln (s) ;

end.