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