Составьте алгоритм и программу y=x+sin50° , где x=a^2+b^2 , , надо

Вроде бы так:
program pr1;
var
a,b,x,y:real;
begin
readln(a,b);
x:=a*a+b*b;
y:=x+sin(50);
writeln(y);
end.