Функция, которая сравнивает два целых числа.

[~Az@liya~]

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

Помогите,пожалуйста))

[Grag]

Function SrvAB(A,B:integer):char;
Begin
  if A<>B 
    then
      if A>B
        then SrvAB:='>'
        else SrvAB:='<'
    else SrvAB:='='
End;

вызов функции

writeln(A,SrvAB(A,B),B) {для консольного приложения}
Edit.Text:=IntToStr(A)+SrvAB(A,B)+IntToStr(B) {для эдита на форме}

[~Az@liya~]

Спасибо,Grag. Но у меня что-то не получается. Ошибку выдает там,где Writeln(для консольного приложения)

[baster128]

В секцию Uses CRT и DOS

[~Az@liya~]

Вместо SysUtils вписать CRT и DOS?

[Serge_Bliznykov]

ну нельзя же быть таким беспомощным!!!
Кто может догадаться, что Вы наворотили и что у Вас не получается?!

вот.
ЦЕЛИКОМ КОД ПРОГРАММЫ (первую строчку, которая выделена цветом.. program Project223 - оставьте свою. Остальное берите отсюда.)

program Project223;
{$APPTYPE CONSOLE}
uses SysUtils;


Function SrvAB(A,B:integer):char;
Begin
  if A<>B 
    then
      if A>B
        then SrvAB:='>'
        else SrvAB:='<'
    else SrvAB:='='
End;

var A, B : integer;
begin
  WriteLn('Vvedite A и B');
  Readln(A,B);
  writeln(A,SrvAB(A,B),B); {для консольного приложения}
  Readln; {просто ожидание нажатия Enter}
end.

[~Az@liya~]

Благодарю за помощь!!