Карандаш рисует кисть тоже рисует) заливка заливает краску линия кривая может изгибатся как захочеш прямоугольник,овал и многоугольник играют роль фигур ,а ластик стирает все каракули)))
Цифре нельзя присвоить букву, более того, она не цифра, а строка..
const N=1000;
var array[1..n] of integer;
i,k,p:integer;
begin
readln(p);
for i:=1 to p do
readln(a[i]);
k:=0;
for i:=1 to p do
if (a[i] mod 4 =0) and (a[i] mod 7 <>0) then k:=k+1;
write(k);
end.