uses crt;
var a,b:array [1..100] of integer;
    i,j,n,m:integer;
    fi,fo:textfile;
    skip:boolean;
begin
        Assign(fi,'in.txt');
        Reset(fi);
        Assign(fo,'out.txt');
        Rewrite(fo);
        n:=1;
        while not eof(fi) do begin
                read(fi,a[n]);
                inc(n);
        end;
        m:=1;
        for i:=1 to n do begin
        skip:=false;
           for j:=1 to m do
            if b[j]=a[i] then
                        begin
                                skip:=true;
                                break
                        end;


        if skip then continue
                else begin
                        inc(m);
                        b[m]:=a[i];
                        write(fo,a[i],' ');
                     end;

        end;
        Close(fi);
        Close(fo);
end.

uses crt;

type sotr=record
fam:string;
adr:string;
end;

var a,b:array [1..50] of sotr;
    c:array [1..100] of sotr;
    i,j,na,nb,nc:integer;
    skip:boolean;
begin
        clrscr;
        write('Введите количество записей первого массива: ');readln(na);
        for i:=1 to na do begin
                write('Введите фамилию ',i,'-ого сотрудника: ');readln(a[i].fam);
                write('Введите адрес ',i,'-ого сотрудника: ');readln(a[i].adr);
                c[i].fam:=a[i].fam;
                c[i].adr:=a[i].adr;
        end;

        writeln;

        write('Введите количество записей второго массива: ');readln(nb);
        for i:=1 to nb do begin
                write('Введите фамилию ',i,'-ого сотрудника: ');readln(b[i].fam);
                write('Введите адрес ',i,'-ого сотрудника: ');readln(b[i].adr);
        end;

        writeln;

        nc:=na;
        for i:=1 to nb do begin
        skip:=false;
                for j:=1 to nc do
                        if (b[i].fam=c[j].fam) and (b[i].adr=c[j].adr) then
                                        begin
                                              skip:=true;
                                              break
                                        end;
        if skip then continue
                else begin
                           inc(nc);
                           c[nc]:=b[i];
                     end;

        end;

        for i:=1 to nc do begin
                writeln('Фамилия ',i,'-ого сотрудника: ',c[i].fam);
                writeln('Адрес ',i,'-ого сотрудника: ',c[i].adr);
        end;
        readln;
end.

uses crt;
const
  eps = 10E-9;
procedure sqr_urav(a,b,c:double;var x1,x2:double);
var
d,t,y,u:double;
r:real;
begin

  if abs(a) < eps then
     begin
      if abs(b) < eps then
         begin
          if abs(c) < eps then
             writeln('infinitnoye mnojestvo')
          else
             writeln('korney net');
          end
      else
       begin
          x1:=-c/b;
          writeln('koren ',x1);
       end;
     end
  else
   begin
    d:=(sqr(b)-4*a*c);
    t:=sqrt(d);
    if (d<0) then writeln('deystvitelnyh korney net')
     else
      begin
       x1:=(-b-t)/(2*a);
       x2:=(-b+t)/(2*a);
      end;
  end;
end;

var a,b,c,x1,x2,y1,y2,z:double;

begin
  clrscr;
{2x2+x-4=0}
  sqr_urav(2,1,-4,x1,x2);
  writeln('x1= ',x1);
  writeln('x2= ',x2);
  writeln;
{ay2+2y-1=0}
  write('a= '); readln( a );
  sqr_urav(a,2,-1,y1,y2);
  writeln('y1= ',y1);
  writeln('y2= ',y2);
{z=(x1+y1)/(x2-y2)}
  z:=(x1+y1)/(x2-y2);
  writeln;
  writeln('z=(x1+y1)/(x2-y2)=',z);
  readln;
end.