Процедуры и функции Опции

[MAED]

Помогите пожалуйста решить три задачи:

1)Написать программу в которой используется функция, сравнивает два целых числа и при этом выводит результат:

A>B
A<B
A=B

2)Написать функцию, которая выполняет доход по вкладу, исходными данными для функции являются величина вклада, процентная ставка (годовая) и срок вклада зависит от кол-ва дней.


3)Составить процедуру, которая вычисляет площадь и объем поверхности параллелепипеда.

[Странник]

Помогите пожалуйста решить три задачи:
1)Написать программу в которой используется функция, сравнивает два целых числа и при этом выводит результат:
A>B
A<B
A=B

Код

uses
crt;
var
a,b:integer;
function minORmax(x,y:integer):integer;
begin
if x>y then minormax:=1;
if x<y then minormax:=2;
if x=y then minormax:=0;
end;
begin
   clrscr;
   writeln('Ввести А и В');
    readln(a,b);
   case minORmax(a,b) of

     1:  writeln(a,' больше ',b);

     2:  writeln(a,' меньше ',b);

     3:  writeln(a,' равно ',b);
end;
readln;
end.

я сделал так...хотя можно и по другому...