Помогите пожалуйста решить 3 задачу заранее спасибо)))

Var a, b:integer; Begin Read(a, b) ; If a+b=10 then write('молодец') else write(что случилось') ; End.