Стороны одного прямоугольники равны A и B. Стороны другого равны Х и Y. Написать программу проверки прямоугольников на равенство Pascal

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.