Untitled

program Hello;
var bilangan,i :integer;
   nilai,hasil_bagi:real;
   
begin
    i:=1;
     write('Input Bilangan:');read(bilangan);
     while (i<bilangan) do
     begin
          if (i mod 2 = 0) then
             {genap}
             begin
              nilai:=bilangan*i;
              writeln(bilangan,' * ', i,' = ',nilai:1:0);
             end
              
         else 
           {ganjil}
           begin
             nilai:=bilangan mod i;
           hasil_bagi:=bilangan div i;
           writeln(bilangan,' : ', i,' = ',hasil_bagi:1:0,' sisa ',nilai:1:0);
           end;
        
      i:=i+1;
     end;
end.