блок схемы...

var
  a: array[1..100, 1..100] of integer;
  kol, j, i, n: integer;
 
begin
  randomize;
  readln(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
      a[i, j] := random(5);
  end;
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j], ' ');
    writeln;
  end;
  writeln;
  kol := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
      if a[i, j] = 0 then begin
        inc(kol);
      end;
  end;
  writeln(kol);
end.

uses crt;
var s:string;
    a,b,c,i:integer;
begin
clrscr;
write('Введите строку: ');
      readln(s);
      a:=0;
      for i:=1 to length(s) do
        begin
        if s[i]='o' then a:=a+1;
 end;
 if a mod 2 =0 then
 writeln('четное ')
 else
 writeln('нечетное ');
writeln('количество o=',a);
      readln;
end.

var
  s: string;
  c: char;
  i, k: integer;
 
begin
  readln(s);
  readln(c);
  k := 0;
  for i := 1 to length(s) do
  begin
    if s[i] = c then begin
      for k := i to length(s) do
      begin
        write(s[k]);
      end;
       writeln;
    end;
  end;
end.

var
  a, b, c, y: real;
 
begin
  a := 0.25;
  b := 1.2;
  c := 1;
  while c <= 5 do
  begin
    if c < 2 then begin
      y := sqrt(a * b + sqr(c));
      writeln(y:3:2, ' ');
    end;
    if (c >= 2) and (c <= 4) then begin
      y := exp(a - sin(c));
      writeln(y:3:2, ' ');
    end;
    if c > 4 then begin
      y := cos(c + a);
      writeln(y:3:2, ' ');
    end;
    c := c + 0.25;
  end;
end.

uses crt;
const n=10;
var e,b:array[1..n] of real;
    i,k:byte;
    sr:real;
begin
clrscr;
writeln('Введите ',n,' положительных и отрицательных ччисел:');
for i:=1 to n do
 begin
  write('e[',i,']=');
  readln(e[i]);
 end;
clrscr;
writeln('Массив Е:');
sr:=0;k:=0;
for i:=1 to n do
 begin
  write(e[i]:0:2,' ');
  if e[i]>0 then
   begin
    k:=k+1;
    sr:=sr+e[i];
   end;
 end;
sr:=sr/k;
writeln;
writeln('Количество положительных=',k,' их среднее=',sr:0:2);
writeln;
writeln('Массив В:');
for i:=1 to n do
 begin
  if e[i]>0 then b[i]:=sr
  else if e[i]<0 then b[i]:=sqr(e[i]);
  write(b[i]:0:2,' ');
 end;
readln
end.