Составить программу, которая запрашивает пароль

var
  x, y: integer;
  s: real;
 
begin
  write('X = ');
  readln(x);
  write('Y = ');
  readln(y);
  s := exp(ln(1 + 1 / x * x) * 4) - 12 * x * x * y;
  writeln('S = ', s);
  readln;
end.

const
  n = 0000;
 
var
  p: integer;
 
begin
  repeat ;
    write('Введите пароль: ');
    readln(p);
    if p = n then writeln('Пароль принят')
    else
      writeln('Пароль не верный');
  until p = n;
  readln;
end.

var a,b,c:integer;
begin
write('A = ');
readln(a);
write('B = ');
readln(b);
write('C = ');
readln(c);
if (a=b) or (b=c) or (c=a) then writeln('Треугольник равнобедренный')
else
writeln('Треугольник не равнобедренный');
readln;
end.

var
  x, a, s, s1, s2: real;
 
begin
  write('X = ');
  readln(x);
  a := x * Pi / 180;
  s := sin(a);
  s1 := cos(a);
  if x = 0 then begin
    if s < s1 then begin
      writeln('sin(X) = ', s);
      writeln('cos(X) = ', s1);
      writeln('ln(x) = Минус бесконечность');
    end
    else
    begin
      writeln('cos(X) = ', s1);
      writeln('sin(X) = ', s);
      writeln('ln(x) = Минус бесконечность');
    end;
  end;
  if x < 0 then begin
    if s < s1 then begin
      writeln('sin(X) = ', s);
      writeln('cos(X) = ', s1);
      writeln('ln(x) = Не существует');
    end
    else
    begin
      writeln('cos(X) = ', s1);
      writeln('sin(X) = ', s);
      writeln('ln(x) = Не существует');
    end;
  end;
  if x > 0 then begin
    s2 := ln(x);
    if (s < s1) and (s < s2) then begin
      writeln('sin(X) = ', s);
      if s1 < s2 then begin
        writeln('cos(X) = ', s1);
        writeln('ln(X) = ', s2)
      end
      else 
      begin
        writeln('ln(X) = ', s2);
        writeln('cos(X) = ', s1);
      end;
    end;
    if (s1 < s) and (s1 < s2) then begin
      writeln('cos(X) = ', s1);
      if s < s2 then begin
        writeln('sin(X) = ', s);
        writeln('ln(X) = ', s2)
      end
      else begin
        writeln('ln(X) = ', s2);
        writeln('sin(X) = ', s);
      end;
    end;
    if (s2 < s) and (s2 < s1) then begin
      writeln('ln(X) = ', s2);
      if s < s1 then begin
        writeln('sin(X) = ', s);
        writeln('cos(X) = ', s1)
      end
      else
      begin
        writeln('cos(X) = ', s1);
        writeln('sin(X) = ', s)
      end;
    end;
  end;
end.