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

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!10)function return_square(a, b, alpa :real):real;beginvar pi := arccos(-1);return_square:= 0.5*a*b*sin(alpa*pi/180);end;beginvar n:= readInteger('N =');for var i:= 1 to n doWriteln('S = ', return_square(ReadReal('a ='),ReadReal('b ='),ReadReal('angle =')))end.Там , где площадь и периметр N прямоугольниковbeginvar n:= readInteger('N =');for var i:= 1 to n do beginvar (a,b):=ReadReal2('a, b =');Writeln('S = ', a*b);Writeln('P = ', 2*(a+b));end;end.