bài 1:

uses crt;
var a,n,i,s:longint;
begin
clrscr;
write('nhap so n:');readln(N);
write('nhap so A:');readln(a);
s:=1;
for i:=1 to n do
 s:=s*a;
write(a,'^',n,'=',s);
readln;
end.

bài 2:

uses crt;
var s,n,i:longint;
begin
clrscr;
write('nhap so n:');readln(N);
for i:=1 to n do
 if n mod i=0 then s:=s+1;
if s=2 then write(n,' la so nguyen to')
 else write(n,' ko phai la so nguyen to');
readln;
end.

bài 3:

uses crt;
var s,n,i:longint;
begin
clrscr;
write('nhap so n:');readln(N);
for i:=1 to n-1 do
 if n mod i=0 then s:=s+i;
if s=n then write(n,' la so hoan hao')
 else write(n,' ko phai la so hoan hao');
readln;
end.

B1

#include <bits/stdc++.h>
using namespace std;
int main() {
    int a,n;
    cout << "A="; cin >> a; cout << "n="; cin >> n;
    int x=a;
    for (int i=0; i<n; i++) a*=x;
    cout << x << "^" << n << "=" << a;
}

B2

#include <bits/stdc++.h>
using namespace std;
int main() {
    int n;
    cout << "Nhap 1 so: ";
    cin >> n;
    int d=0;
    for (int i=1; i<=n; i++) if (n%i==0) d++;
    if (d==2) cout << "YES";
    else cout << "NO";
}

B3

#include <bits/stdc++.h>
using namespace std;
int main() {
    int n;
    cout << "Nhap 1 so: ";
    cin >> n;
    int s=0;
    for (int i=1; i<n; i++) if (n%i==0) s+=i;
    if (s==n) cout << "YES";
    else cout << "NO";
}