1. напишите программу, которая вводит значение 3-х переменных и выводит их произведение. 2. напишите программу, определяющую, делится ли число без остатка на 7. 3. напишите программу, которая вычисляет сумму чисел от 1 до n. значение n вводится с клавиатуры (n< 100). , нужно.

1. uses crt; var x,y,z: integer; begin       write('x: '); readln(x);       write('y: '); readln(y);       write('z: '); readln(z);       write('x*y*z=',x*y*z); end.2.uses crt; var x: integer; begin      write('введите число: '); readln(x);       if x mod 7=0 then writeln('yes')        else writeln('no'); end.3.uses crt; var n,x,sum: integer; begin      write('n: '); readln(n);       sum: =0;       for x: =1 to n do          sum: =sum+x;       write(sum); end.

пщояк 17 27 16 33 17

нщёп 15 27 7 17