Напишите программу, которая считывает одну строку, после чего выводит «Да», если в введённой строке есть слово «золото», и «Нет» в противном случае.

а)самый большой овал-танцоры

далее-актеры

и самый маленький- певцы 

в) 2 элемента. 

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥