uses crt;var x,y:integer;begin clrscr;write (\'Введите два числа: \'); read (x,y); writeln (\'Первое число:\', x, \'Второе число\', y); if x>y then writeln (\'Большее число: \', x+1); {Если x>y то вывод \"Большее число...}else writeln (\'Меньшее число: \', x-1); {Если меньше то вывод \"Меньшее число...}if y>x then writeln (\'Большее число: \', y+1);else writeln (\'Меньшее число: \', y-1);end. Блок схема: http://piccy.info/view3/10825289/cde9a3704f7c20b403ed44eb512fe96a/