program abxyz;var a,b,x,y,z:real;beginwrite(\'a:\');read(a);write(\'b:\');read(b);write(\'x:\');read(x);write(\'y:\');read(y);write(\'z:\');read(z);if (x<a) and (y<b) or (x<b) and (y<a) thenwriteln(\'True\')elseif (x<a) and (z<b) or (x<b) and (z<a) thenwriteln(\'True\')elseif (y<a) and (z<b) or (y<b) and (z<a) thenwriteln(\'True\')elsewriteln(\'False\');end.Второй вариант:var a,b,x,y:integer;begin    writeln(\'Vvedite A\');     readln(a);    writeln(\'Vvedite B\');     readln(b);    writeln(\'Vvedite X\');     readln(x);    writeln(\'Vvedite Y\');      readln(y);        if (x>a) and (y>b) then        writeln(\'Kirpich ne proydet\');        if (x<a) and (y<b) then        writeln(\'Kirpich proydet\');        writeln(\'Press ENTER to exit\');        readln;        end.