Склавиатуры вводятся 11 чисел найти произведение отрицательных чисел делящихся на 17.

поставить условие "если число меньше 0, и целая часть от (число/17) равна (число/17), то умножай на это число, иначе умножай на 1" (чтобы ничего не изменилось)

var s,i,x: integer; begins: =1; for i: =1 to 11 do beginreadln(x); if (x< 0) and (x mod 17 = 0) then s: =s*x; end; if s< > 1 then writeln(s) else writeln('0'); end.

№1 var a, b, c: integer; begin read(a, b, c); if((a = b) or (b = c) or (c = a)) then write('треугольник равнобедренный') else  write('треугольник неравнобедренный'); end. блоксхема: начало ввод сторон(a, b, c) если a = b или b = c или с = a, то вывести: 'треугольник равнобедренный' иначе вывести: 'треугольник неравнобедренный' конец №2 var n, s, i: integer; begin s : = 0; read(n); for i : = 20 to n do begin if (i mod 2 < > 0) then s : = s + i; end; write(s); end. блоксхема: начало s : = 0, i  : = 20 ввод числа n пока i не равно n     если i - нечётное, то       прибавить к s вывести  s конец

Const   gl='aeiouy';   var   s: string;   i,l,n,p: integer;   begin   write('введите строку: '); readln(s);   l: =length(s);   for i: =l downto 1 do       if pos(s[i],gl)=0 then begin           p: =i+1; n: =l-p+1;           delete(s,p,n);           writeln(s); writeln('удалено символов: ',n);           break           end end.