ini adalah First

uses crt;

Var
        A : integer;
        B : Integer;
BEGIN
        CLRSCR;
        WRITELN(' Input First Number: ');
        READLN(A);
        WRITELN(' Input First Number: ');
        READLN(b);

        If( a< 10) Then WRITELN('A Smaller than 10,but greater than B')
        Else If ( A<B) Then WRITELN('A Smaller Than 10 and B')
        Else
                WRITELN('A Smaller Than 10,and equal with B');
        READLN();
End.