Напишите программу, которая считает произведение двух вещественных чисел и выводит результат с округлением. в языке програмирования паскаль

Program colors;
Uses crt;

var color: integer;
label l1;

Begin clrscr;
      l1: write('Введите номер цвета color = ');
          readln(color);

          case color of 0: writeln('Черный');
                        1: writeln('Синий');
                        2: writeln('Зеленый');
                        3: writeln('Голубой');
                        4: writeln('Красный');
                        5: writeln('Фиолетовый');
                        6: writeln('Коричневый');
                        7: writeln('Светло-серый');
                        8: writeln('Темно-серый');
                        9: writeln('Ярко-синий');
                        10: writeln('Ярко-зеленый');
                        11: writeln('Ярко-голубой');
                        12: writeln('Розовый');
                        13: writeln('Малиноый');
                        14: writeln('Желтый');
                        15: writeln('Белый');

          else
          begin
               writeln('Непривильный номер цвета');
               writeln;
               goto l1;
          end;
          end;
      readln;
End.             

1)function test:real; - ВЕРНО
2)function tan (angle:real):real; - ВЕРНО
3)function sign( a, b:integer); - НЕВЕРНО, не определен тип возвращаемого значения
4)function sign(write: integer): integer - НЕВЕРНО, в конце нет точки с запятой

Программа напечатает:
12
Объяснение:
Процедура Exchange задумана, как обменивающая местами значения своих параметров. Но из-за отсутствия в заголовке var, она не вернет в вызвавшую программу новые значения, поэтому х и у останутся без изменения. Так они и будут выведены.