oh yes

{ Afficher la multiplication de deux nombre a et b (de 3 chiffres max)
Exemple :

   140
 x  23
------
3220 }

Program jadwel_dharb ;
Uses WinCrt;
var
a,b : Integer;
Begin;
Write('nombre1: ');
Readln(a);
Write('nombre2: ');
Readln(b);
        If a div 100 <> 0 then
                WriteLn('    ',a)
        Else
            If a div 10 <> 0 then
                WriteLn('     ',a)
        Else
            If a div 1000 <> 0 then
                WriteLn('noumrou fih ken 3 chiffre ya bhim ')
        Else
                WriteLn('      ',a);

                If b div 100 <> 0 then
                WriteLn('x   ',b)
        Else
            If b div 10 <> 0 then
                WriteLn('x    ',b)
        Else
            If b div 1000 <> 0 then
                WriteLn('noumrou fih ken 3 chiffre ya bhim ')
        Else
                WriteLn('x     ',a);
WriteLn('_______');

    If a*b div 100000 <> 0 then
                WriteLn(' ',a*b)
        Else
            If a*b div 10000 <> 0 then
                WriteLn('  ',a*b)
        Else
            If a*b div 1000 <> 0 then
                WriteLn('   ',a*b)
        Else
            If a*b div 100 <> 0 then
                WriteLn('    ',a*b)
        Else
            If a*b div 10 <> 0 then
                WriteLn('     ',a*b)
        Else
                WriteLn('      ',a*b);


End.

{CORRECTION :
program produit;
uses wincrt;
var
a,b, p: longint;

begin
write('a='); readln(a);
write('b='); readln(b);
p:=a*b;
writeln(a:6);
writeln(' x ', b:3);
writeln('------');
writeln(p:6);
end.  }