Question

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

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.
                               

Answer 2

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