Распечатать список учеников, фамилии которых начинаются на букву в, с указанием даты их рождения. на паскале

Var s: string; n,i: integer; ych: array[1..99999] of string; begin writeln('введите кол-во учеников'); readln(n); for i: = 1 to n do begin  readln(s); if s[1] = 'в' then  ych[i]: =s; end; writeln('начинаются на в'); for i: = 1 to n do  if ych[i]< > '' then writeln(ych[i]); end.

сред. арифметическое = сумма всех чисел разделить на количество

 

(a1 + a2 + a3 + a4 + a5) / 5

var x1,x2,x3,x4,x5: integer;

s: real;

begin

  read(x1,x2,x3,x4,x5);

  s: = (x1+x2+x3)/(x4+x5);

  if round(s)=s then writeln("celoe - "s);

end.