program SoHanhPhuc;
uses crt;

function IsHappyNumber(n: integer): boolean;
var
sum, digit: integer;
begin
while (n > 1) do
begin
sum := 0;
while (n > 0) do
begin
digit := n mod 10;
sum := sum + digit * digit;
n := n div 10;
end;
n := sum;
end;
IsHappyNumber := (n = 1);
end;

var
a, b, i: integer;
begin
clrscr;
write('Nhập số nguyên dương a: ');
readln(a);
write('Nhập số nguyên dương b (b > a): ');
readln(b);

writeln('Các số hạnh phúc trong khoảng từ ', -a, ' đến ', b, ':');
for i := -a to b do
begin
if IsHappyNumber(i) then
writeln(i);
end;

readln;
end.

def is_prime(num):
if num < 2:
return False
for i in range(2, int(num**0.5) + 1):
if num % i == 0:
return False
return True

def count_primes_in_sequence(sequence):
count = 0
for num in sequence:
if is_prime(num):
count += 1
return count

# Nhập dãy số
n = int(input("Nhập số lượng phần tử trong dãy: "))
sequence = []
for i in range(n):
num = int(input(f"Nhập số thứ {i + 1}: "))
sequence.append(num)

# Đếm số nguyên tố trong dãy
prime_count = count_primes_in_sequence(sequence)

print(f"Số lượng số nguyên tố trong dãy là: {prime_count}")