Блин, для детей задача)) )
Раз равнобедренный - значит 2 стороны равны) )
И так:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
math;
var
f:TextFile;
i,j,k,B,A,s:real;
ravn:Boolean;
begin
AssignFile(f, 'input.txt');
Reset(f);
Read(f,i,j,k);
CloseFile(f);
a:=0;b:=0;
if i=j then begin
b:=k; A:=i;
ravn:=True;
end else
if i=K then begin
b:=J; A:=i;
ravn:=True;
end else
if j=K then begin
b:=i; A:=k;
ravn:=True;
end;
if ravn then
begin
s:=(b*(sqrt(sqr(a)-sqr(b)/4)))/2;
end;
AssignFile(f, 'output.txt');
Rewrite(f);
if ravn then
Writeln(f,Format('%.0f',)) else Writeln(f,'треугольник не равнобедренный');
CloseFile(f);
end.
в папке только создай файл "input.txt" с значениями сторон через запятую