Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде знака: >, < или = Pascal ABC

function Compare(a,b:integer):char;begin  if a<b then Compare:='<'  else if a=b then Compare:='='  else Compare:='>'end;var  x,y:integer;begin  Write('Введите два числа через пробел: ');  Readln(x,y);  Writeln(x,Compare(x,y),y)end.