Таблица умножения

Program CPascal;

var i,j:byte;

Begin
for i:=1 to 10 do
    Begin
    Writeln('Умножение на '+i+':');
    for j:=1 to 10 do Writeln(i:2,' x ',j:2,' = ',i*j:3);
    Writeln;
    end;
end.