1. по натуральному числу х выяснить следующее за ним число. 2. по двум натуральным числам х и у дать ответ на вопрос : х> у х=у х

1.
var x, m: integer;
begin

x := 6;
m := x + 1;

end.

2.
var x, y: integer;
begin

x := 6;
y := 3;

if x>y then writeln('x>y - istinno')
else writeln('x>y - lozhno')
if x=y then writeln('x=y - istinno')
else writeln('x>y - lozhno')
if x<y then writeln('x<y - istinno')
else writeln('x>y - lozhno')

end.

3.
1.
var x, m: integer;
begin

x := 6;
if x-1>0 then m := x - 1;

end.

4.
var x, y, m: integer;
begin

x := 6;
y := 3;

if x-y>0 then m := x - y
else writeln('raznost ne imeet naturalnoe chislo')

end.

5.
var x, y, m: integer;
begin

x := 6;
y := 3;

m := x * y;

end.

6.
var x, y, m, n: integer;
begin

x := 6;
y := 3;

n := x / y;
m := x mod y;

end.