Pascal 019 ► Desplegar tabla de multiplicar de n número

Ejercicio 019: Desplegar la tabla de multiplicar de un número "n".

Program Pascal_019;
uses crt;
var
    num, res, i : integer;
Begin
    WriteLn('Ingresa número');
    ReadLn(num);
    for i:=1 to 10 do
    begin
        res := num * i;
        WriteLn(num,' x ', i,' = ',res);
    end;
    ReadKey;
End.