1.     
Составить линейную программу, печатающую значение TRUE, если указанное
высказывание является истинным, и FALSE в противном случае:

Квадрат
заданного трехзначного числа равен кубу суммы цифр этого числа.

2.     
Дано двузначное число. Определить кратна ли трем сумма
его цифр.

3.     
Известен рост трех человек. Определить, одинаков ли он.

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.Всё проверено, удачи:)