Var a, b:integer; //числа типа integer, т.е. целые числаBegin write('Введите число a: '); read(a); //читаем значение а write('Введите число b: '); read(b); //читаем значение b if(a>b) then writeln('>'); //если a>b тогда пишем '>' if(a<b) then writeln('<'); //если a<b тогда пишем '<' if(a=b) then writeln('='); //если a=b тогда пишем '='end.