Anonymous

program propedia;
var
   power,k,i: integer;

begin
     write('Dose k: ');
     readln(k);
     if (k>0) and (k<=9) then
     begin
        i:=0;
        writeln('H propedia tou ', k, ' einai: ');
        repeat
             power:=i*k;
             writeln(k, 'x', i, '= ', power);
             i:=i+1;
        until i>10
     end;

    readln();
end.