program lab;

var
  S: array [1..10] of integer;
  T: array [1..15] of integer;

procedure Addarray;
var
  j: integer;
begin
  for j := 1 to 10
    S[j] := random[10];{заполнение}	
  for j := 1 to 15
    T[j] := random[10];{ещё одно =)}
end;

function GetCh: integer;
var
  c, i: integer;  
begin
  c := S[1];
  Result := 0;
  for i := 1 to 15 do
    if  T[i] = c then
      inc(Result);
end;

begin
  Addarray;
  writeLN("Kolichstvo=",GetCh);
end.

Program Sqrt1; 
Var A, B, C, D, X1, X2 : Real; 
Begin 
Writeln ('Введите коэффициенты квадратного уравнения вида '); 
Readln (A,B,C); 
D:=B*B-4*A*C; 
if A<>0 then Begin
If D<0 Then Writeln ('Корней нет! ') 
Else 
Begin 
X1:=(-B+SQRT(D))/2/A; 
X2:=(-B-SQRT(D))/2/A; 
If X1<>X2 then
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)
else  Writeln (' Корень один ','X=',X2:8:3)
End;
End
else 
Writeln('Решений нет');
Readln;
End.

Program Sqrt1; 
Var A, B, C, D, X1, X2 : Real; 
Begin 
	Writeln ('Введите коэффициенты квадратного уравнения вида '); 
	Readln (A,B,C); 
	D:=B*B-4*A*C; 
	if A<>0 
	then 
		Begin
			If D<0 Then Writeln ('Корней нет! ') 
			Else 
				Begin 
					X1:=(-B+SQRT(D))/2/A; 
					X2:=(-B-SQRT(D))/2/A; 
					If X1<>X2 then
						Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)
					else  Writeln (' Корень один ',X=',X2:8:3)
				End;
		End
	else 
Writeln('Решений нет');
End.