Var a,b,c:integer;
L:Boolean;
P,s:real;
BEGIN
Write(‘a=’);
Readln(a);
Write(‘b=’);
Readln(b);
Write(‘c=’);
Readln(c);
L:=(a+b>c) and (b+c>a) and(a+c>b);
If L
then
begin
writeln(‘Otse4kite obrazuvat triugulnik’)
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Write(‘Liceto na triugulnika e’, s:0:3);
end
Else writeln(‘Otse4kite ne obrazuvat triubulnik’);
readln;
End.