Даны целочисленные значения A и B.Если A=B вывести у=1 .Если AВ вывести на экран y=3.(через паскаль)

var a,b:integer;beginwrite('a = '); readln(a);write('b = '); readln(b);if a=b then writeln('y=1') else writeln('y=3');end.Пример:a = 5b = 8y=3