Số siêu nguyên tố là số nguyên tố mà khi cắt bỏ đi một số tuỳ ý các chữ số bên phải của nó thì phần còn lại vẫn tạo thành một số nguyên tố. Ví dụ : 2333 là số siêu nguyên tố vì 2333, 233, 23, 2 đều là các số nguyên tó . a/ Hãy in ra màn hình tất cả các số siêu nguyên tố có 4 chữ số. Có bao nhiêu số như vậy? b/ Trong các chữ số thập phân từ 0 đến 9 có chữ số nào xuất hiện ở tất cả các số siêu nguyên tố có 4 chữ số nói trên hay không ? Yêu cầu: Sau khi hiện ra màn hình ghi dữ liệu vào tệp Output.inp Dòng 1: Tổng số siêu nguyên tố. Từ dòng 2 mỗi dòng một số siêu nguyên tố. Dòng cuối cùng đưa ra số xuất hiện nếu không có số nào dòng cuối ghi khong Lập trình pascal ạ

uses crt;
function isPrime(n: integer): boolean;
var i: integer;
begin
    for i := 2 to trunc(sqrt(n)) do
        if n mod i = 0 then exit(false);
    exit(true);
end;
function isSuperPrime(n: integer): boolean;
begin
    while n > 0 do
    begin
        if not isPrime(n) then exit(false);
        n := n div 10;
    end;
    exit(True);
end;
var i,j,temp,count: integer;
    sum: int64;
    sp: array[1000..9999] of boolean;
begin
    count := 0;
    sum := 0;
    for i := 1000 to 9999 do
        if isSuperPrime(i) then
        begin
            sum := sum + i;
            inc(count);
            temp := i;
            sp[i] := True;
            writeln(i);
        end;
    writeln(count);
    assign(output, 'Output.inp'); rewrite(output);
    writeln(sum);
    for i := 1000 to 9999 do
        if sp[i] then writeln(i);
    write('khong');
end.

$\\$

`\bb\color{#3a34eb}{\text{@hoanganhnguyen09302}}`