Подскажите,пожалуйста Запишите на ЯП Паскаль и обратно

А var x,y,s: real;
Begin
s:= x*y;
End.

б Var a,b,x,s: real;
Begin
s:=sqrt(abs(sqr(cos(a+b*sqr(x)))));
End.

в Var x,y,b: integer;
Begin
x:=15;
y:=21;
b:=15+21 div 2;
End.