2.1 [demo] Checking digits for equality

program number;
uses sysutils;
var
str:string;
num:integer;
counter : integer = 0;
notEqual : integer =0;
number2 : integer =0;
i : integer =0;
j : integer =1;
j2 : integer =1;
begin
    writeln('Enter a number');
    readln(num);
    str:=IntToStr(num);
    while(num>0) do
     begin
        num:= num div 10;
        counter:=counter+1;
     end;
 //   writeln('Counter is: ');
 //   writeln(counter);
    if(counter=2) then
        begin
         if(str[1]<>str[2])  then
          begin
            writeln('Dif');
          end;
          if(str[1]=str[2]) then
            writeln('Equal');
        end;



end.