решить Найдите и объясните ошибку в программе: program ; var a, b, c, d, f, p:integer; begin writeln('Введите 5 численных значений:'); readln(a, b, c, d, f ); p:=a+b+c+d+f; writeln('p=', p); readln end. 2. Найдите и объясните ошибку в программе: program Prim; begin writeln('Введите 5 численных значений:'); readln(a, b, c, d, f ); p:=a+b+c+d+f; writeln('p=', p); readln end. 3. Найдите и объясните ошибку в программе: program Prim; var a, b:integer; begin writeln('Введите 5 численных значений:'); readln(a, b, c, d, f ); p:=a+b+c+d+f; writeln('p=', p); readln end. 4. Найдите и объясните ошибку в программе: program Prim; var a, b, c, d, f, p:integer; begin writeln('Введите 5 численных значений:'); p:=a+b+c+d+f; writeln('p=', p); readln end. 5. Найдите и объясните ошибку в данной программе: VAR a, b, y : Integer; BEGIN a:=10; b:=6; y:= a / b; WriteLn (y) END. 6. Программа вычисляет сумму квадратов всех четных чисел от a до b. Найдите и объясните ошибку в данной программе: Program prim; Var a, b, i, k :integer; s:real; Begin WriteLn ('Введите a, b'); ReadLn (a, b); s:=0; i:=a; While i>=b Do Begin k:=2*i; s:=s+k*k; i:=i+1; End; WriteLn ('Summa=', s); ReadLn End. 7. Программа вычисляет сумму всех нечетных чисел от 101 до 301. Найдите и объясните ошибку в данной программе: Program prim; Var s, i: integer; Begin s:=0; i:=101; repeat s:=s+i; i:=i+2; Until S>301; WriteLn ('Summa = ', s); ReadLn End.