Задачи с ветвлениемЯвляется ли число К трехзначнымКакое из чисел а, б, с, является меньшимЕсть ли среди чисел а,б,с взаимно противоположныеЯвляется ли 4-ехугольник со сторонами а, б, с. д ромбом

VAR
   k: String;
BEGIN
   Read(k);
   if (Length(k) = 3) then Write(k,  - 3-ное число)
   else Write(k,  - не 3-ное число);
END.
------------------------------------------------------------------------
VAR
   a,b,c: LongInt;
BEGIN
   Read(a, b, c);
   If (a    else (b    else Write(c);
END.
------------------------------------------------------------------------
VAR
   a,b,c: LongInt;
BEGIN
   Read(a, b, c);   

   if (a = b) then Writeln(a, , b,  - взаимно противоположные числа);
   if (a = c) then Writeln(a, , c, - взаимнопротивоположныечисла); 
   if (b = c) then Writeln(c, , b, - взаимнопротивоположныечисла);    
END.
------------------------------------------------------------------------
VAR
   a,b,c,d: Real;
BEGIN
   Read(a, b, c, d);   

   if (a = b)and(b = c)and(c = d) then Write(Ромб)
   else Write(Не ромб);
END.