программирование, лёгкая задачка-найдите ошибку

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a,b,e,d:real;
begin
writeln('vvedite a,b,e,d');
readln(a,b,e,d);
if (a=b) and (e=d) or
if (a=e) and (b=d) or
if (a=d) and (b=e) then write('mojno sostavit parallelogramm')
else write('nelzya sostavit parallelogramm');
readln;
end.