Program P1;

      Var c,d,a,b: integer;
      Var x: boolean;

   Begin
   x:= false;
   Writeln('Introduceti patru numere intregi:');
   Write('a='); Readln(a);
   Write('b='); Readln(b);
   Write('c='); Readln(c);
   Write('d='); Readln(d);

  if (a=b)and (c=d) then
  x:=true;

   if (a=d)and (c=b) then
   x:=true;

   if(a=c) and (d=b) then
  x:=true;
  if(x) then
  writeln('numerele introduse pot reprezenta lungimile laturilor unui paralelogram' )
else
writeln('numerele introduse NU pot reprezenta lungimile laturilor unui paralelogram' );

end.
      Writeln('a=',a,' ','b=',b,'c=',c,' ','d=',d);
     End.