Немного по дом.заданию

program one;
uses
  crt;
var
  a,b,t,y,s: real;
begin
  clrscr;
  writeln('Введите a');
  readln(a);
  writeln('Введите b');
  readln(b);
  writeln('Введите t');
  readln(t);
  y:= exp(-b*t) * sin(a*t+b) - sqrt(abs(b*t +a));
  s:= b * sin(a*t*t*cos(2*t)) - 1;
  writeln('y= ', y:0:2, ' s= ', s:0:2);
  readln;
end.

program one;
uses
  crt;
var
  x,y,n: real;
  k: integer;
begin
  clrscr;
  writeln('Введите x');
  readln(x);
  writeln('Введите y');
  readln(y);
  if (x = 0) OR (y = 0) then
    writeln('x и y не должны быть равны 0')
  else
    begin
      if x > 0 then
        begin
          if y > 0 then
            k:=1
          else
            k:=4
        end
      else
        begin
          if y > 0 then
            k:=2
          else
            k:=3
        end;
    end;
  writeln('Четверть введенных x,y - ', k);
  readln;
end.

program one;
uses
  crt;
var
  a,m,s: real;
  n,c: integer;
begin
  clrscr;
  writeln('Введите a');
  readln(a);
  writeln('Введите n');
  readln(n);
  s:= 1/a;
  m:= a;
  for c:= 1 to n do
  begin
    m:= m*(a+c);
    s:= s + 1/m;
  end;
  writeln('Ответ: ', s:0:3);
  readln;
end.

program one;
uses
  crt;
const
  n=5;
var
  x,s: real;
  c,t: integer;
  arr: array[1..n] of real;
begin
  clrscr;
  for c:= 1 to n do
  begin
    writeln('Введите элемент № ', c);
    readln(arr[c]);
    if arr[c] < 2 then
      arr[c]:= 0;
    if (arr[c] >= 3) AND (arr[c] <= 7) then
      begin
        s:= s+ arr[c];
        t:=t+1;
      end;
  end;
  writeln('Сумма членов [3,7]: ', s:0:3);
  writeln('Число членов: ', t);
  readln;
end.

program one;
uses
  crt;
var
  a:   string;
  i,s: integer;
begin
  clrscr;
  writeln('Введите строку');
  readln(a);
  s:= 1;
  for i:=1 to length(a) do
  begin
    if a[i]=' ' then
    begin
      s:= s+1;
    end;
  end;
  writeln('Слов: ', s);
  readln;
end.

program one;
uses
  crt;
const
  n= 5;
var
  a:       array[1..n,1..n] of integer;
  c:       array[1..n] of real;
  i,j,max: integer;
  s:       real;
begin
  clrscr;
  randomize;
  writeln('Исходные данные');

  for i:= 1 to n do
  begin
    for j:= 1 to n do
    begin
      a[i,j]:= random(100);
      write(a[i,j]:3);
    end;
    writeln;
  end;

  for j:= 1 to n do
  begin
    max:= 1;
    for i:= 1 to n do
      if a[i,j] > a[max,j] then
        max:= i;
    writeln('Столбец ', j,' - A[', max, ',', j, '] = ', a[max,j]);
    c[j]:= a[max,j];
  end;

  s:= 0;
  for i:= 1 to n do
    s:= s + c[i] * c[n-i+1];

  writeln('S= ',s:0:1);
  readln;
end.