Напиши запрос (база данных Ms Access) :записи, в которых названия стран заканчиваются на "тина".

канал - 5букв

телевизор,компьютер 9букв

крик - 4буквы

1 кбайт

1000 байт

1024 бит

1 байт

1 бит 

сохранить информацию о наблюдаемом объекте 

передать информацию о нём другим людям

испытать на модели работу объекта ,если испытание объекта-оригинала  опасно или дорого

var  a: array [1..10] of integer;

n,i: integer;

begin

  {vvod massiva skopirovat suda}

  for i: = 1 to 10 do begin

      if a[i] mod 10 = 0 then

          n: =n+1;

  end;

  writeln(n);

end.