Иформатика паскаль 8 класс

 var a, i, n, k: integer;

begin k := 0; write('n: '); readln(n);

for i := 1 to n do begin readln(a);

if (a mod 4 = 0) and (a mod 7  0) 

then k := k +1 end; writeln(k) end. 

 Program P1; 

uses crt; 

label l; 

var a, i, k, n: integer; 

begin 

clrscr; 

k:=0; 

writeln ('Введите с клавиатуры количество натуральных чисел (только число (целое число, 0) по 1. После ввода каждого числа нажимайте клавишу Enter. Внимание: программа не работает с числами, превышающими 30000.'); 

   for i:=1 to n do begin 

       readln (a); 

       if (a30000) then begin 

          writeln ('Ошибка: Было введено некорректное значение.'); 

          goto l; 

       end; 

   if (a mod 4=0) and (a mod 70) then k:=k+1; 

   end; 

   if k=0 then writeln ('Среди введенных чисел нет чисел, кратных 4 и не кратных 7.') else writeln ('Среди введенных чисел: ', k, ' чисел, кратных 4 и не кратных 7.'); 

end; 

l:; 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.