Написать код для этого выражения: (-sin с 35 d)/7+a^2

program Work1;
{ Вычислить вариант 61
arctg(b) + c*b - a/4
x= ------------------------
12*c + a – b }
Uses CRT;
var
a,b,x,x1,x2,F : Real;
c :Integer;
{Главная программа}
begin
ClrScr;
Writeln(' Вариант 30');
Writeln(' arctg(b) + c*b - a/4');
Writeln(' x= ------------------------');
Writeln(' 12*c + a - b');
Writeln;
{Ввод значения переменной a }
Write('Введите значение a=====>'); Readln(a);
{Ввод значения переменной b
Write('Введите значение b=====>'); Readln(b);
{Ввод значения переменной С }
Write('Введите значение c=====>'); Readln(cL);
{____________________________________________________}
{Вычисление знаменателя с проверкой его на ноль}
x2:= 12.0*c + a - b;
if x2=0 then
Begin
Writeln('Деление на ноль!!!!!!!! Повторите ввод.');
halt;
End;
x1:= ArcTan(b)+c*b-a/4;
F:=x1/x2;
Writeln ('x=',F:5:2);
end.

Uses CRT;
var
x: Real;
c,a,d,b :Integer;
begin
ClrScr;
Write(' Вариант№');
readln(b);
Writeln(' x=(-sin(с)-35*d)/7+a^2;');
Writeln;
Write('значение a= '); Readln(a);
Write('значение d= '); Readln(d);
Write('значение c= '); Readln(c);
x:=((-1)*sin(c)-35*d)/7+a*a;
Writeln ('x=',x:2:2);
end.