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.