3. Амир робот арналған заттардың түсін аны: галтын бағдарлама жазды. Бағдарламада қолданылған фильтры
​

                                           НАПИСАНО НА ПАСКАЛЕ!
2)

program fofgogjoj;
const nmax=100;
var
m:array[1..nmax] of integer;    
n,i,j,k:byte;    
a,b,x:integer;
begin
randomize;
repeat Write('Размер массива до ',nmax div 3,' n=');
readln(n);
until n in [1..nmax div 3];
Writeln('Исходный массив:');
for i:=1 to n do  
begin
m[i]:=random(50);  
Write(m[i],' ');  
end;
Writeln;
Writeln;
Write('Введите число для вставки перед a=');
Readln(a);
i:=1;
k:=0;
while i<=n do  
begin
if m[i]>a then    
begin    
n:=n+1;    
k:=1;    
for j:=n downto i+1 do    
m[j]:=m[j-1];    
m[i]:=a;    
i:=i+2;    end  
else i:=i+1;  
end;
if k=0 then
Writeln('Элементов больше ',a,' нет')
else  
begin  
Writeln('Массив после вставки числа ',a,' перед большими ',a);  
for i:=1 to n do  
Write(m[i],' ');  
Writeln;  
Writeln;  
Write('Введите число для вставки после b=');  
Readln(b);  
i:=1;k:=0;  
while i<=n do  
if m[i]<b then    
begin    
n:=n+1;    
k:=1;    
for j:=n downto i+2 do    
m[j]:=m[j-1];    
m[i+1]:=b;    
i:=i+2;    end  
else
i:=i+1;  
if k=0 then
Writeln('Элементов меньше ',b,' нет')  
else    
begin    
Writeln('Массив после вставки числа ',b,' после меньших ',b);    
for i:=1 to n do    
Write(m[i],' ');    
end;  
end;
readln
end.

Uses crt;
label goback;
var
a,b,c,d,e,f:integer;
begin
goback:
write('Введите число: ');read(a);
if (a<1000) or (a>9999) then 
  begin
    writeln('Введите четырехзначное число.');
    goto goback;
end;
b:=a div 1000;
c:=a div 100 mod 10;
d:=a div 10 mod 10;
if (b=c) and (c=d) then  begin    writeln('Первые 3 цифры равны.');  end;
if (b=c) and (c>d) then  begin    writeln(d,' - Наименьшая цифра из первых 3 цифр.');end;
if (d=b) and (b>c) then  begin    writeln(c,' - Наименьшая цифра из первых 3 цифр.');end;
if (c=d) and (d>b) then  begin    writeln(b,' - Наименьшая цифра из первых 3 цифр.');end;
if (b>c) and (c>d) and (b>d) then  begin    writeln(d,' - Наименьшая цифра из первых 3 цифр.');end;
if (c>d) and (d>b) and (c>b) then  begin    writeln(b,' - Наименьшая цифра из первых 3 цифр.');end;
if (b>d) and (d>c) and (b>c) then  begin    writeln(c,' - Наименьшая цифра из первых 3 цифр.');end;
if (b mod 2 = 0) then  begin    writeln('Первая цифра четная');  end;if (c mod 2 = 0) then  begin    writeln('Вторая цифра четная');end;
if (b mod 2 = 0) and (c mod 2 = 0) then  begin    writeln('И первая и вторая цифра четная');  end;
if (b mod 2 = 1) and (c mod 2 = 1) then  begin    writeln('И первая и вторая цифра не четная');end;
End.