A,B целое A=B, y=1 A>B,y=2 A<B, y=3 сделать программу

Question

A,B целое
A=B, y=1
A>B,y=2
A сделать программу

Answer 1

Var a,b,y:integer;
begin
writeln('Введите 2 числа a и  b'); readln(a,b);
if a=b
then y:=1
else if a>b
       then y:=2
       else y:=3;
writeln('y= ', y);
end.
                               

Comments

а мне поможешь??