Нужно решить. Я вообще не шарю в информатике.

Var
a,b,s : integer ;
begin
a: = 60°
b: = 60°
s: = a+b * 2= 48;
writeln ('s= ', s) ;
end