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

[MAED]

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

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

A>B
A<B
A=B

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


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

[volvo]

можно и по другому...

Чтобы не делать "масло масляное" (в смысле, сначала вернуть признак, а потом по признаку выбрать и напечатать результат) - можно вот так:

function compare(x, y: integer): string;
begin
  if x>y then compare := ' больше '
  else 
    if x<y then compare := ' меньше '
    else compare := ' равно ';
end;

var
  a, b: integer;
begin
  writeln('Ввести А и В');
  readln(a,b);
  writeln(a, compare(a, b), b);
  readln;
end.