Сссссссссссссссссссссссссссссссссссссссссссс
носок мозоль георгин помидор - мозоль
<em>озимь цитадель фланель панцирь - панцирь</em>
<u>подстаканник подорожник подснежник подлокотник .- подорожник</u>
13 строка, удали скобки с выражений! then Begin c:=... ; y:=...;else вот так
Var i,n:integer;beginwriteln('Введите кол-во чисел!');readln(n);for i:=1 to n dobeginif (i mod 6=0) and (i mod 10=4) thenwriteln(i);end;end.
Program lab;uses crt;
vari,a: integer;M: array [1 .. 30] of integer;
begin clrscr; // Очистка экрана randomize; // инициализирует рандом a:=0; // инициализирует аккумулятор for i:=1 to 30 do M[i] := random(1000); // заполняет массив рандомными числами for i:=1 to 30 do if ((M[i] mod 17) = 0) or ((M[i] mod 13) = 0) then // если остаток от деления на 17 или 13 равен 0... a := a + M[i]; // то добавить число к сумме // если аккумулятор больше 0, то вывести вывести его значение if a>0 then writeln('a = ',a) // иначе вывести "чисел нет" else writeln('чисел нет');end.