Помогите найти ошибку (Информатика, Паскаль).

var s, k, a:integer;

Begin

s:=0;

k:=0;

Read (a) ;

while a0 do

Begin

if a mod 8=0 then

Begin

s:=s+a;

k:=k+1;

end;

Readln (a) ;

end;

var y:real;

begin

y: = s/k;

Read (s) ;

if s>0 then

Writeln (y)

else

Writeln ('NO')

end;

end.

Определить значение переменной у после выполнения следующих фрагментов программы: a) Var у : real; i : integer; у : = 1; i : = 5; while i> 2 do i: = i - 1; y:=y + 1 * i; b) Var у : real; i : integer; у : = 1; i : = 2; repeat i: = 2 * i;

Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;

Сократите эту программу program sr; var a, b, c : real; y, x, xb, xc : real; na, nb, nc: integer; function stup (x: real; n: integer) : real; var i: integer; k: real; begin k:=1; for i : = 1 to n do k : = k * x; stup : = k; end;

Uses crt; var n, s, s1, s2, k:integer; begin writeln ('Введите число: ') ; readln (n) ; s:=0; s1:=0; s2:=0; while n>0 do begin inc (k) ; if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end;

Найдите ошибку в программе Pascal Задание: Дано:a, b, c, d. Найти: среднее значение чисел принадлежащих интервалу (1; 30) и кратных 3.