{ writeln( i,j); Programmas skanosanas laika atvert writeln..}
end;
end;
for i:=1 to num do {Uzgenereta masiva izvads}
begin writeln;
for j:=1 to num do
write( ms[i,j]:7)
end;
writeln; writeln(' Lai turpinatu ievadi jebkuru skaitli ');
read(j);
goto MENU;
BEIGAS:
end.
…