По данной готовой программе составить алгоритм и блок схему
program pifagor ;
var i,j:Integer;
p:Integer;
begin
write('':4);
for j:=1 to 10 do
write (j:4);
writeln;
for i:=1 to 10 do
begin
write(i:4);
for j:=1 to 10 do
write(i*j:4);
writeln;
end;
readln;
end.