1)найти два меньших числа из трех. 2)определить , является ли треугольник со сторонами a,b,c а) равносторонним б) равнобедренным в) разносторонним

Var a,b,c:integer;
begin
writeln('введите три числа');
readln(a,b,c);
if ((a<b) and (a<c)) and (b<c) then writeln ('меньшие ', a,'и',b) ;
if ((a<b) and (a<c)) and (c<b) then writeln ('меньшие ', a,'и',c) ;
if ((c<a) and (c<b)) and (a<b) then writeln ('меньшие ', c,'и',a) ;
if ((c<b) and (c<a)) and (b<a) then writeln ('меньшие ', c,'и',b) ;
end.