Задачи на ветвление, 8 класс, паскаль абс
1) Введите чиcло x. Если число больше 100, то прибавить 50, если меньше- умножить на 2
2)Введите два числа (x,y). Если число х больше числа у,то число х увеличить на 2,если меньше числа y- то к числу х прибавить число y.
3) Введите два числа (x,y).Если число х больше числа у,то на экран выдать
сообщение,что максимальное число х, иначе, что больше число у

//1Var x:integer;begin readln(x); if x>100 then x:=x+50 else x:=x*2; writeln(x);end.//2Var x,y:integer;begin read(x,y); if x>y then x:=x*2; if x<y then x:=x+y; writeln(x);end.//3Var x,y:integer;begin read(x,y); if x>y then writeln('Max-x') else writeln('y>=x');end.