БЛОК СХЕМУ var a,b:integer; begin writeln('Введите в одной строке два целых числа и нажмите '); readln(a,b); if a>b then writeln(a,' > ',b) else if a end.
Если я правильно понял ,что нужно. var a,b:integer; begin readln(a,b); if (a>b) then writeln(a,' > ',b) else if (a else writeln(a,' = ',b); end.