Помогите найти ошибку

[kukobch]

Составить функцию нахождения площади параллелограмма по диагоналям и углу между ними. С помощью данной функции вычислить площадь для N параллелограммов.
uses crt;
var
d1,d2,d,s:real;
n,i:integer;
function pl(c1,c2,c:real):real; //заголовок функции
begin
pl:=(1/2)*c1*c2 * sin(c) //тело функции
end;
begin
clrscr;
writeln('Введите количество параллелограммов');
readln(n);
for i:=1 to n do
begin
writeln('Введите d1 = ');
read(d1);
writeln('Введите d2 = ');
read(d2);
writeln('Введите угол d в градусах = ');
read(d);
s:=pl(d1,d2,d); // вызов функции
write('s = ', s:8:2);
writeln;
end;
end.

[ViktorR]

"Уж сколько лет твердили миру ..."

read(d1);

Эта процедура, при чтении с клавиатуры всегда должна использоваться в версии

readln(d1);

и только при чтении, например, матрицы из файла, можно применить

read(matr[i,j]);
...
...
readln(matr[i,j]); {для перехода к следующей строке}

Дело в том, что после набора числа и нажатия Enter в буфере ввода, при чтении по read(), "застревают" символы возврата каретки и перевода строки, которые вводятся нажатием Enter.
readln() - эти символы считывает корректно.


Как-то так, ...