Генерация и обработка чисел по заданным условиям

var x, y, x:integer;
begin
x:=random(100);
y:=random(100);
writeln('x = ', x);
writeln('y = ', y);
if (x > y) and (y mod 2 <> 0) then
    x:=x div 5;
    y:=y + 1;
if (y > x) and (x mod 2 <> 0) then
     y:=y div 5;
     x:=x + 1;
if (x > y) and (y mod 2 = 0) then
    x:=x div 5;
if (y > x) and (x mod 2 = 0) then
     y:=y div 5;
writeln('x = ', x);
write('y = ', y);
end.

var x, y, x1, y1:integer;
begin
x:=random(100);
y:=random(100);
writeln('x = ', x);
writeln('y = ', y);
if (x > y)and (y mod 2 = 0) then
    x1:= x div 5;
if (x > y)and (y mod 2 = 0) then
    y1:= y;
if (x > y)and (y mod 2 <> 0) then
    x1:= x div 5;
if (x > y)and (y mod 2 <> 0) then
    y1:= y + 1;
if (x < y)and (x mod 2 = 0) then
    y1:= y div 5;
if (x < y)and (x mod 2 = 0) then
    x1:= x;
if (x < y)and (x mod 2 <> 0) then
    y1:= y div 5;
if (x < y)and (x mod 2 <> 0) then
    x1:= x + 1;    
writeln('x1 = ', x1);
write('y1 = ', y1);
end.

begin
  var(x,y):=(Random(100),Random(100)); // 1
  WriteLn($'x = {x}{NewLine}y = {y}'); // 2
  if x > y then x := Round(x / 5) else y := Round(y / 5); // 3
  if x < y then x += (odd(x) ? 1 : 0) else y += (odd(y) ? 1 : 0); // 4
  WriteLn($'x = {x}{NewLine}y = {y}'); // 5
end.