определить, можно или нет выстроить параллелограм из 4-х отрезков данной длины.

Программа на языке Pascal:

var a,b,c,d: real;
begin
 
repeat
     writeln('Введите a,b,c,d');
     readln(a,b,c,d);
  until a*b*c*dlt;gt;0; //проверка длины отрезков lt;gt; 0

  if ((a=b) and (c=d)) or ((a=c) and (b=d)) then writeln('Параллелограмм' )
     else writeln('Не параллелограмм' ) ;
end.