Действительные числа a, b, c. если нельзя построить треугольник с такими сторонами, то напечатать 0, иначе 3, 2 или 1 в зависимости от того, равносторонний этот треугольник, равнобедренный или какой-либо другой.

var a,b,c: integer;

begin

writeln('введите три стороны через пробел: ');

read(a,b,c);

if (a< b+c) and (b< a+c) and (c< a+b) then begin

if (a=b) and (b=c) and (a=c) then begin

writeln('3');

end;

if (a=b) or (b=c) or (a=c) xor ((a=b) and (b=c) and (a=c)) then begin

writeln('2');

end;

if (a< > b) and (b< > c) and (a< > c) then begin

writeln('1');

end;  

end

else begin

writeln('0');

end;

end.

Объяснение:

Диало́говое окно́ (англ. dialog box) в графическом пользовательском интерфейсе — специальный элемент интерфейса, окно, предназначенное для вывода информации и (или) получения ответа от пользователя. Получил своё название потому, что осуществляет двустороннее взаимодействие компьютер-пользователь («диалог»): сообщая пользователю что-то и ожидая от него ответа.

Диалоговые окна подразделяются на модальные и немодальные, в зависимости от того, блокируют ли они возможность взаимодействия пользователя с приложением (или системой в целом) до тех пор, пока не получат от него ответ.