СЕ
Светлана Ерофеевская
Товарищи, помогите мне нарисовать блок-схему для программы:
procedure ReadKeyBoard;
var
i,j: integer;
begin
clrscr;
Writeln;
writeln('Исходная система ');
FOR i := 1 TO N DO
begin
FOR j := 1 TO N DO
begin
write('a[',i,' ',j,'] = '); {приглашение к вводу}
Readln(aa[i,j]); {ввод}
end;
write('b[',i,'] = '); {приглашение к вводу}
Readln(bb); {ввод}
end;
end;
заранее спасибо!