Надо срочно решить Задания делать в Pascal ABC

function return_square(a, b, alpa :real):real;
begin
var pi := arccos(-1);
return_square:= 0.5*a*b*sin(alpa*pi/180);
end;

begin
var n:= readInteger('N =');
for var i:= 1 to n do
Writeln('S = ', return_square(ReadReal('a ='),
ReadReal('b ='),ReadReal('angle =')))
end.




begin
var n:= readInteger('N =');
for var i:= 1 to n do begin
var (a,b):=ReadReal2('a, b =');
Writeln('S = ', a*b);
Writeln('P = ', 2*(a+b));
end;
end.