Question

составить блок-схему и программу увеличения большего из двух чисел на 1

Answer 1

var

a,b  : integer;

begin

writeln('введите 1 число ');

readln(a);

writeln('введите 2 число');

readln(b);

if a>b then

begin

y:=a+1;

writeln('1 число больше',y)

else

begin

y:=b+1;

writeln(' 2 число больше ',y);

end;

end;

end.