Реферат: Операционная система.

Writeln(''); Write('b: ');

For i:=1 To n Do Begin

b[i] := 1; key := False;

For j:=1 To n Do

If Trunc(a[i, j]) mod 3= 0 Then Begin

b[i] := b[i] * a[i, j]; key := True

End;

If Not key Then b[i] := 0;

Write(b[i]:7:2);

End;

readln(symbol)

End.