пример ввода пример вывода
3 < 5 Yes
3 > 5 No
Дано утверждение вида «a < b» или «a > b». При этом a и b — два различных числа от 1 до 9.
Если утверждение верно, выведите «Yes», иначе выведите «No». Можно
использовать как большие, так и маленькие буквы

var s:string;

x, y:integer;

begin

write('Введите выражение: ');

readln(s);

for var i:=1 to length(s) do

begin

if (s[i] = '>') then

begin

x:=strtoint(copy(s, 1,i-1));

y:=strtoint(copy(s,i+1,length(s)));

if x>y then write('true')

else write('false');

end;

if (s[i] = '<') then

begin

x:=strtoint(copy(s, 1,i-1));

y:=strtoint(copy(s,i+1,length(s)));

if x<y then write('true')

else write('false');

end;

end;

end.