Προπαίδεια με Pascal

Program multi;
uses crt;
var i,j:integer;
Begin
clrscr;
for i:=1 to 10 do
begin
    for j:=1 to 10 do
        write(i*j:5);
    writeln;
end;
readln;
End.