Даны целочисленные значения A и B.Если A=B вывести у=1 .Если AВ вывести ** экран...

Question

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

Answer 1

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