С объяснением
Дам достаточно таки много балов
Задача на рисунке

1)
var a:string;
    i, o: Integer;
    p: Real;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (sqr(o) = p*p*p) then writeln('true')
        else writeln('false');
end.

2)
var a:string;
    i, o, p: Integer;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (p mod 3 = 0) then writeln('true')
        else writeln('false');
end.

3)
var a, b, c: real;
begin
     readln(a, b, c);
     if ((a = b) and (b = c)) then writeln('true')
        else writeln('false');
end.

Всё проверено, удачи:)

#include <iostream>

#include <cstdlib>

using namespace std;

int main()

{

int number; //Вводимое число

int difference_first, difference_second; //переменные проверки арифм. прогр.

cout << "Enter three digit number: "; cin >> number; //ввод трехзначного числа

while(number < 100 or number >= 1000){

 //проверка числа на трехзначность

 cout << "Error!\nEnter three digit number: "; cin >> number;

}

 difference_first = number % 10 - (number / 10 % 10); //разница между третьей цифрой и второй

 difference_second = (number / 10 % 10) - (number / 100 % 10); // разница между второй цифрой и первой

   if(difference_first == difference_second){ // если эти разницы равны, значит

    cout << "YES!" << endl;       // вывод, ДА

   }else cout << "NO!" << endl;      // иначе, НЕТ

system("pause");

return 0;

}