Расположение основных компонентов системной платы

Знак «дефис» ставится без пробелов, например: файл-сервер, кто-нибудь, темно-синий. Для улучшения внешнего вида документа можно использовать «неразрывный дефис», который вводится с одновременного нажатия клавиш <Ctrl> + <Shift> + <дефис>.

   «Неразрывный дефис» препятствует нежелательному переносу слов, содержащих дефис (в месте его расположения).

   Знак «тире», или как его называют «длинное тире», ставится с пробелами до и после знака с одновременного нажатия комбинации клавиш <Ctrl>+<Shift>+<серый минус>. Например, «следующий этап — редактирование».

  Знак «неразрывный пробел» препятствует символам, между которыми он поставлен, располагаться на разных строчках и со­храняется фиксированным при любом выравнивании абзаца (не может увеличиваться, в отличие от обычного пробела). Этот знак очень удобно применять при вводе дат (которые не принято располагать на двух строчках), фамилий с инициалами и т. п. Например: М. Ю. Лермонтов, 1998 г., 9 мая, 1682-1696 гг. Ставится знак «неразрывный пробел» с одновременного нажатия комбинации клавиш <Ctrl>+<Shift>+<пpoбел>.

   Слова, заключенные в кавычки или скобки, не должны отделяться от них пробелами. Например, «Евгений Онегин», гостиница «Нев­ский Палас», слобода Алексеевка (ныне город Алексеевка Белгород­ской области).

   Для ввода римских цифр используются прописные латинские буквы I, V, X, L, С, D, М. Например, первая половина XIX века, конец ХVII века.

Пишите грамотно и быть может станете великим поэтом как Пушкин, Лермонтов или Дельвиг.

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.

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