Smile for life

uses crt;
VAR a,b:Integer;
BEGIN
clrscr;
     a:=1;
               While a <= 10 do
                     Begin
                          b:=1;
                          While b <= 10 do
                                  Begin
                                       Write('  ',a,' x ', b,' = ',a*b);
                                       b:=b+1;
                                  end;
                          a:= a + 1;
                      end;
     readln;
end.