Помогите, кисы.:* Даны числа a b c. Если а >7, то найдите сумму чисел b c, иначе...

Question

Помогите, кисы.:*

Даны числа a b c. Если а >7, то найдите сумму чисел b c, иначе найдите разность.

Answer 1

program n1;

var:a,b,c,s,r:integer;

begin

if a>7 then s:=b+c else r:=b-c

end:

end.