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

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