1) определите одно имя. поля базы данных. 2)определите количество записеи в базе данных.​

1) на Pascal: 
var 
t,i,j:integer; 
a:array[1..4]of integer; 
begin 
for i:=1 to 4 do 
begin 
write('Vvedite ',i,'-i 4islo: '); 
readln(a); 
end; 
for i:=2 to 4 do 
for j:=4 downto i do 
if a[j-1]>a[j] then 
begin 
t:=a[j-1]; 
a[j-1]:=a[j]; 
a[j]:=t; 
end; 
writeln('Raspolagaem 4isla v poryadke vozrastaniya:'); 
for i:=1 to 4 do 
writeln(a); 
readln; 
end. 

2) на С: 
#include <stdio.h> 
#include <conio.h> 
void main(void){ 
int n,a,b,c,d; 
printf("\nVvedite 4x-znachnoe chislo n: "); 
scanf("%i", &n); 
a=n/1000; 
b=(n-a*1000)/100; 
c=(n-a*1000-b*100)/10; 
d=n-a*1000-b*100-c*10; 
if (a+b==c+d) printf("true"); 
else printf("false"); 
getch(); 

// PascalABC.NET 3.3

begin
  var a:=ArrRandom(10,-50,50);
  writeln('1)');  a.Println;
  writeln('Среднее арифметическое четных элементов = ',
           a.Where(x->x mod 2=0).Average);
  var c:=ArrRandom(10,-50,50);
  writeln('2)');  c.Println;
  writeln('max+min = ',c.Max+c.Min);
  writeln('3)');
  var n:=ReadInteger('n =');
  var b:=SeqGen(n,random(5),x->x+random(1,5)).ToArray;
  b.Println;
  var s:=ReadInteger('s =');
  var k:=b.Where(x->x<s).Count;
  b:=b[:k]+Arr(s)+b[k:];
  b.Println;
end.

Пример:
1)
-24 12 -31 -5 -45 36 27 43 46 -6
Среднее арифметическое четных элементов = 12.8
2)
24 -13 -20 -47 16 27 -33 11 22 -33
max+min = -20
3)
n = 10
0 4 5 7 11 15 19 20 24 25
s = 10
0 4 5 7 10 11 15 19 20 24 25