free pascal cara menentukan segitiga sama sisi dan kaki menggunakan if bagaimana ya??

mudah, bandingkan saja ketiga variabel sisinya, jika hanya satu sisi yg berbeda sudah pasti itu sama kaki

misal :

var s1,s2,s3 : integer; h:string;
begin
s1 := 3; s2 := 3; s3 := 2;

if (s1 = s2) and (s1 = s3) then
h := 'sama sisi'
else
h := 'sama kaki';
end;