Алгоритмизация

const
n = 5;
 
var
a: array [1..n,1..n] of integer;
i,j: integer;
pr: boolean; {признак симметричности}
 
begin
  for i:=1 to n do
    for j:=1 to N do begin
    write ('a[', i ,',', j,']=');
    readln (a[i,j]);
    writeln
    end;
  pr:= true;
  for i:= 1 to n-1 do
    for j:= 1 to n-i do
    begin
    if a[i,j] <> a[n-j+1, n-i+1] then pr:= false;  {если не совпадают перебрасываем в false}
    end;
  if pr then writeln('Является')
  else writeln('Не явялется');
  readln;
end.

uses crt;
var m:array[1..250] of real;
    i,j,k,l:integer;
    x,y:real;
begin
  i:=0;
  writeln('Вводите вещественные числа');
  Repeat
    i:=i+1;
    write('введите m[',i,']=');
    readln(m[i]);
  until m[i]=0;
  
  x:=0; y:=0; k:=0; l:=0;
  for j:=1 to i do begin
    if m[j]>0 then begin
      x:=x+m[j];
      k:=k+1;
    end;
    if m[j]<0 then begin
      y:=y+m[j];
      l:=l+1;
    end;
  end;
  
  if k=0 then writeln('положительных элементов нет')
  else begin
    x:=x/k;
    writeln('ср.арифм положительных элементов:',x);
  end;
  if l=0 then writeln('отрицательных элементов нет')
  else begin
    y:=y/l;
    writeln('ср.арифм отрицательных элементов:',y);
  end;
 readln;  
end.

uses crt;
var s,sl:string;
    i,k:integer;
begin
  write('введите строку:');
  readln(s);
  k:=0;
  s:=s+' ';
  for i:=1 to length(s) do begin
    if s[i]=' ' then begin
      if length(sl)=4 then k:=k+1;
      sl:='';
    end else sl:=sl+s[i];
  end;
  writeln('количество слов из 4 букв:',k);
  readln;
end.

uses crt;
var m:array[1..200] of integer;
    i,k,n:integer;
begin
  write('введите размерность массива:');
  readln(n);
  k:=0;
  for i:=1 to n do begin
    write('m[',i,']=');
    readln(m[i]);
    if m[i] mod 5=0 then m[i]:=3
    else k:=k+m[i];
  end;
  writeln();
  for i:=1 to n do begin
    write(m[i],' ');
  end;
  writeln();
  writeln('сумма элементов массива:',k);
  readln;
end.

uses crt;
var s:string;
 
function kolslov(ks:string):integer;
var ks_i, ks_k:integer;
    sl:string;
begin
  ks_k:=0;
  ks:=ks+' ';
  for ks_i:=1 to length(ks) do begin
    if ks[ks_i]=' ' then begin
      if length(sl)=4 then ks_k:=ks_k+1;
      sl:='';
    end else sl:=sl+ks[ks_i];
  end;
  kolslov:=ks_k;
end;
 
begin
  write('введите строку:');
  readln(s);
  writeln('количество слов из 4 букв:',kolslov(s));
end.