Результатом рядка буде print ("2 * 2") *

2
2 * 2
1
0

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) Потому что любые данные в памяти компьютера хранятся в виде цепочек битов, т. е. последовательностей нулей и единиц.
2) Преобразование аналоговой формы представления звука в дискретную и обратное.
цифро-аналоговым преобразованием (ЦАП)
аналого-цифровым преобразованием (АЦП)
3) Звуковой процессор, ЦАП, усилитель.
4) Звук, видео, графика, объединенные в мультимедиа приложение, требуют больших объемов памяти. Поэтому для их хранения нужны
достаточно емкие и, желательно, недорогие носители.
5) Современные видеокарты имеют встроенный графический процессор, чтобы не нагружать центральный процессор компьютера.
6) Зрение человека создано для того, чтобы воспринимать тончайшие цветовые оттенки в полной мере и для этой цели идеальным
вариантом будет покупка видеопроектора. Именно это электронное устройство превысить стандартные размеры изображения.