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

//1

Var
 x:integer;
begin
 readln(x);
 if x>100 then x:=x+50 else x:=x*2;
 writeln(x);
end.

//2
Var
 x,y:integer;
begin
 read(x,y);
 if x>y then x:=x*2;
 if x writeln(x);
end.

//3
Var
 x,y:integer;
begin
 read(x,y);
 if x>y then writeln(Max-x) else writeln(y>=x);
end.