напишите программу на паскале

Объяснение:

program zadan;

const n=10;

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

      i:integer;

begin

 i:=1;

 while i<=10 do

 begin

   write('a[i]= ');readln(a[i]);

   i:=i+1;

 end;

end.

пользоветель-это система их бывает много есле создать.

програмист-это человек который создает программу 

имя       возраст     занятие

оля         13             пение

петя         14           баскетбол

вася         13             хоккей

катя         15             танцы

коля         11         баскетбол

серёжа     11           футбол