Написать программу разветвленного алгоритма. если x>5 тогда y=x+4 иначе y=x-10

Question

Написать программу разветвленного алгоритма. если x>5 тогда y=x+4 иначе y=x-10

Answer 1

Begin
var: x,y: integer;
Begin
Writeln('Vvedite x');
If x>5 then y=x+4 else y=x-10;
Writeln('y=',y);
Readln;
Readln;
End.