4. Определить множества
а) A U B.
б) А\В, если А={1,2,4,5,7 a, b, B-{2,5,9b.kg​

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.

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

Короткий ответ:
1 Га = 100 Ар.
1 Ар = 0,01 Га.

З км. кв. = 30 000 Ар.
1 Ар = 0,003333 км. кв.

Подробнее.
Ар - единица измерения площади земли, условно равная 10 метров ширины на 10 метров длины = 10 м, х 10 м, = 100 м. кв.
Гектар - площадь земли, условно равная 100 м х 100 метров = 10 000 м. кв,
Ар - это ОДНА СОТАЯ Гектара.
1 Га = 100 Ар = 10 000 м. кв : 100 м. кв. = 100 Ар.
1 Ар = 0,01 Га.

1 километр = 1 000 метров.
1 км. кв. = 1 000 м х 1 000 м. = 1 000 000 м. кв.
3 км. кв = 3 000 000 м. кв.
3 000 000 м. кв. : 100 м. кв ( 1 ар ). = 30 000 ар
1 Ар = 100 : 30 000 = 0,003333 км. кв.