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

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