Найти площадь ромба по стороне и острому углу: - Pascal

Формулировка задачи:

Помогите сделать программы 10 В магазине продается костюмная ткань. Ее цена в руб. за кв. метр. Подсчитать стоимость куска этой ткани длиной Х м и шириной У м. Исходные данные X,Y,B это второе задание 11 Найти площадь ромба по стороне и острому углу: , где а - сторона, - угол а, Эти задания надо в паскале сделать у меня не получаеться

Решение задачи: «Найти площадь ромба по стороне и острому углу:»

Листинг программы

program BOMBA;
var S,a,k:real;
    f1,f2:text;
 begin
  assign(f1,'D:\laba\7\dano.txt');
  reset(f1);
  assign(f2,'D:\laba\7\rezultat.txt');
  rewrite(f2);
  readln(f1,a,k);
  S:=a*a*sin(k);
  writeln(f2,'Ploshad romba ravna ',S:3:3);
  close(f1);
  close(f2);
end.

Объяснение кода листинга программы

В программе объявлены три переменные: S, a и k типа real, а также две переменные f1 и f2 типа text.
Строка assign(f1,'D:\laba\7\dano.txt') устанавливает путь к файлу, в котором будет выполняться чтение данных.
Строка reset(f1) подготавливает файл для чтения.
Строка assign(f2,'D:\laba\7\rezultat.txt') устанавливает путь к файлу, в который будет записан результат.
Строка rewrite(f2) перезаписывает содержимое файла f2.
Строка readln(f1,a,k) считывает данные из файла f1 в переменные a и k.
Выражение S:=a*a*sin(k) вычисляет площадь ромба по данным сторонам и острому углу.
Строка writeln(f2,'Ploshad romba ravna ',S:3:3) записывает результат в файл f2.
Выражение close(f1) и close(f2) закрывают файлы, из которых были прочитаны данные и в которые был записан результат.