Стороны одного прямоугольники равны…

Var a, b, x, y: Integer; begin Write ('a: '); Readln (a); Write ('b: '); Readln (b); Writeln; Write ('x: '); Readln (x); Write ('y: '); Readln (y); if (a=x) and (b=y) or (a=y) and (b=x) then Writeln ('Прямоугольники равны.') else Writeln ('Прямоугольники нк равны.'); Readln; end.