4 алгоритма, реализованных в алгоритмическом языке Паскаль

uses crt;
var
 a:array[1..10]of integer;
 i, j, max, k:integer;
begin clrscr;
begin randomize;
   for i:=1 to 10 do
    begin
       a[i]:=random(100);
       write('a[',i,']=', a[i],'  ');
    end;
end;
max:=a[1];
k:=a[2];
for i:=1 to 10 do
if a[i]>max then 
 begin 
    max:=a[i];
    j:=i;
 end;
writeln;
writeln('position of max element=',j);
writeln('max=', max);
for i:=1 to 10 do  
 begin
    a[j]:=k;
    if i=2 then
    a[i]:=max else a[i]:=a[i];
 end;
writeln;
for i:=1 to 10 do
write('a[',i,']=', a[i], ' ');
readkey;
end.

uses crt;
var
 Q: real;
 x, b, s:integer;
begin clrscr;
   write('x=');
   read(x);
   write('b=');
   read(b);
   write('s=');
   read(s);
   if (s=0) or (x=0) then
    begin
       writeln('delenie na 0');
    end
   else 
    begin
       Q:=(b*sqr(x)-s)/(exp(s*x)-1);
       writeln;
       writeln('Q=(',b,'*sqr(',x,')-',s,')/(exp(',s,'*',x,')-1)=',Q);
    end;
   readkey;
end.

var
  a, x, y, c, d, p, q: real;
begin
  writeln('‚Введите исходные данные (a, x)');
  readln( a,x);
  q:= sqrt(2);
  p:= x*x;
  c:= 1/(4*a*a*a*q);
  d:=a*x*q+a*a;
  y:= c*ln(abs((p+d)/(p-d)));
  writeln('Исходные данные:');
  writeln('a=', a:6:2,'  x=', x:6:2);
  writeln('Результат:');
  writeln('y=',y:10:5);
  readln;
end.

Program Zadanie_5;
type
 
  t_mgts= record
    place: string;       {mesto provedenia}
    month,day: integer;  {mesajc,den}
    kol_m,price: real;   {kolichestvo mest,cena}
  end;
var
  m: t_mgts;         {peremennaji dlaj hraneniaj dannih}
  f: file of t_mgts; {fail dlaj hraneniaj dannih}
  ft: text;          {fail dlaj hraneniaj rezultatov obrabotci}
  ans: char;
  z_mesto:string;
  max:real;
begin
  assign(f,'mgts.dat');
  rewrite(f);
  repeat
   with m do
    begin
      write('Nazvanie mesta provedenia: ');   readln(place);
      write('Kol-vo mest: ');                 readln(kol_m);
      write('Nomer mesajca: ');               readln(month);
      write('Den mesajca: ');                 readln(day);
      write('Plata? ');                       readln(price);
    end;
    write(f, m);
    write('Vvod oconchen? ');
    readln(ans);
   until (ans='Y') or (ans='y');
  close(f);
 write('Zadannoe Mesto proved: ');
 readln(z_mesto);
 Max:=0; max:=0;
 assign(ft, 'mgts.txt');
 rewrite(ft);
 reset(f);
 while not eof(f) do
  begin   read(f,m);
            if m.place <> z_mesto then continue;
            if  (Max = 0) or (Max>m.price) then
                   max:=m.kol_m*m.price;
  end;
  seek(f,0);
  while not eof(f) do
  begin read(f,m);
          with m do
          if (place = z_mesto) and (kol_m*price=max) then
          begin
writeln(place);writeln(kol_m:2:2);writeln(month);writeln(day);writeln(price:2:2);
      writeln(ft,place,kol_m:2:2,month,day,price:7:2);
      end;
  end;
  close(ft);
  readln;
end.