Составить программу на языке Паскаль, Больше из двух чисел увеличить на единицу, Меньшее увеличить в два раза.
8 класс срочно

var a, b: integer;beginreadln(a, b);if a> b then beginb:=b*2;a:= a+1;endelsea:=a*2;b:=b+1;writeln(a,' ',b);end.