Program Cosinus;
Uses Crt;
function Cs(var i:integer;var x:real):real;
var j:integer; t:real;
begin
t:=1;
for j:=1 to i do t:=t*cos(x);
Cs:=t;
end;
var s,x:real; i:integer;
begin
clrscr;
readln(x);
s:=0;
for i:=1 to 30 do s:=s+Cs(i,x);
writeln(s:2:5);
readkey;
end.

Program Sinus;
Uses Crt;
function factor(var x:word):longint;
var i:word; j:longint;
begin
     j:=1;
     for i:=1 to x do j:=j*i;
     factor:=j;
end;

var s,x,t:real; i:word; k:integer;
begin
clrscr;
writeln('Vvedite x');
readln(x);
t:=x*x*x/6; i:=5; s:=t; k:=-1;
while abs(t)>0.001 do
begin
     t:=abs((exp(i*ln(x)))/(factor(i)));
     writeln(exp(i*ln(x)):2:4);
     writeln(factor(i));
     writeln(t:3:4);
     readkey;
     s:=s+t*k; i:=i+2; k:=-1*k;
end;
writeln('Rezultat - ',s:2:6);
writeln(sin(x):2:6);
readkey;
end.

type
  TArr = record
     index: integer;
     mult : real;
  end;

var
  A, B: array [1..4,1..4] of real;
  Arr: array [1..4] of TArr;
  TmpArr: TArr;
  Tmp: real;
  i, j : integer;
  f: boolean;

begin
  randomize;
  for i:=1 to 4 do
  begin
    for j:=1 to 4 do
    begin
      A[i,j]:=(random(200)-100)/20;
    end;
  end;

  for i:=1 to 4 do
  begin
    Arr[i].index:=i;
    Arr[i].mult:=1;
    for j:=1 to 4 do
    begin
      Arr[i].mult:=Arr[i].mult*A[j,i];
    end;
  end;

  writeln;
  writeln('Source array:');
  for i:=1 to 4 do
  begin
    for j:=1 to 4 do
    begin
      write(A[i,j]:2:2,' ');
    end;
    writeln;
  end;

  writeln;
  writeln('Mult array :');
  for i:=1 to 4 do
    write(Arr[i].index,' : ',Arr[i].mult:2:2,' ');

  f:=true;
  while f do
  begin
    f:=false;
    for i:=1 to 3 do
      if Arr[i].mult>Arr[i+1].mult then
      begin
        TmpArr:=Arr[i];
        Arr[i]:=Arr[i+1];
        Arr[i+1]:=TmpArr;
        f:=true;
      end;
  end;

  writeln;
  writeln;
  writeln('Regulate mult array :');
  for i:=1 to 4 do
    write(Arr[i].index,' : ',Arr[i].mult:2:2,' ');

  writeln;

  for j:=1 to 4 do
  begin
    for i:=1 to 4 do
    begin
      B[i,j]:=A[i,Arr[j].index];
    end;
  end;

  writeln;
  writeln;
  writeln('Regulate array:');
  for i:=1 to 4 do
  begin
    for j:=1 to 4 do
    begin
      write(B[i,j]:2:2,' ');
    end;
    writeln;
  end;

  readln;
end.

uses crt;

var
  symb: char;
  eho: boolean;

begin
  clrscr;
  write('Eho on Y/N: ');
  readln(symb);
  if (symb = 'Y') or (symb = 'y') then
    eho:=true
  else eho:=false;

  write('Enter symbol: ');
  symb:=readkey;
  if eho then
    write(symb);

end.

uses crt;
var
 f:Text;
 s: string;
begin
  clrscr;
  Assign(f,'FileName.txt');
  {$I-}
  Reset(f);
  {$I+}
  if IOResult<>0 then
    write('File read error.')
  else
    while not EOF(f) do
    begin
      readln(f,s);
      writeln(s);
    end;
  readln;
end.