Помогите, информатика, паскаль

program CompareXY;
var
x, y: integer;

begin
writeln('Введите x:');
readln(x);

writeln('Введите y:');
readln(y);

if x > y then
y := 3 + x
else if x = y then
y := x;

writeln('Результат: y = ', y);
end.