по информатике !! написать программу , нужно

// PascalABC.NET

begin

 ReadSeqInteger(ReadInteger).Where(p -> p mod 6 = 0).Sum.Print

end.

Знаковая модель, как следует из её определения, это формула потому что она записана специальными Знаками.

Графической модели иерархической системы лучше всего будет отвечать иерархическая модель. Хотя имеются методы, позволяющие отразить иерархию и в табличной модели (реляционная алгебра). Натуральная модель в некоторых случаях тоже может отражать иерархию: модель автомобиля, если представить его в виде иерархического набора элементов. Математическая модель может вообще все что угодно отобразить. Но все же иерархическая модель отражает иерархию наиболее наглядно.

1. 
var 
n,i,k,sum,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;

for i:=1 to k do begin
g:= n mod 10;
sum:= sum + g;
n:=n div 10;
end;
if sum> 10 then
writeln('верно')
else
('неверно');
end.

2.
var 
n,i,k,p,h,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;
p:=n mod 10;
n:=n div 10;
for i:=1 to k-1do begin
g:= n mod 10;
if g = p then
 h += 1;
n:=n div 10;
end;
writeln(h);
end.

3.
const
n=10;
var

a:array[1..n]of integer;
i,sum:integer;

begin
a[n]:=0;
for i:=1 to 9 do
readln(a[i]);

for i:=1 to n do 
 sum:=sum+a[i];
writeln(sum);
end.

4.
var

n:integer;

begin

readln(n);

while n<>0 do begin
n:=n div 10;
k += 1;
end;
if k = 4 then
writeln('число четырехзначное')
else
writeln('число не четырехзначное');
end.

5.
var

a:array[1..10]of integer;
i:byte;

begin

for i:=1 to 10 do
readln(a[i]);

for i:=1 to 10 do begin
 if a[i] = 2 then
writeln('да есть');
break;
end;
end.