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

Var a,b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a=b then writeln('y=1') else writeln('y=3');
end.

Пример:
a = 5
b = 8
y=3