Найди четыре ошибки в программном коде, написав правильный код.​

ответ: ВБГА

Объяснение:

Запрос под кодом В наберёт больше всего результатов, так как тут есть целых три ключевых слова, которые могут быть в искомой странице

Запрос под кодом Б наберёт результатов меньше, так как тут только два ключевых слова

Запрос под кодом Г наберёт результатов ещё меньше, так как тут необходимо, чтобы два ключевых слова были в одном документе, а в предыдущих запросах слова были на выбор

Запрос под кодом А наберёт меньше всего результатов, так как целых три ключевых слова должны быть в искомом документе

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.

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