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

Var a,c: string; k,p: integer; begin write ('введите строку:   '); read (a); k: =length(a); p: =pos('  ', a); c: =copy(a,  p  +  1,  k  -  p  +  1); writeln ('результат:   ', c); end.

Njtype       matrix= array [1..1, 1..10] of integer; var       a, : matrix;       i, j: integer; { индексы массива } begin       for i : =1 to 5 do {цикл для перебора всех строк}             for j : =1 to 10 do {перебор всех элементов строки по столбцам}                   readln ( a [ i , j ]); {ввод с клавиатуры элемента, стоящего в i -й строке и j -м столбце} по итогу. i = это год. j = это численность населения. по второму примеру. i = это день,  j = это вес кота

Procedure tform1.btnrunclick(sender: tobject); var       s: string;       sum, x, i, count: integer; begin       s : = edtvvod.text;       lblvyvod.caption : = floattostr(0);             sum : = 0;       count : = 0;             for i : = 1 to length(s) do       begin               if i mod 2 = 0 then continue;               x : = strtoint(s[i]);               if x mod 2 = 1 then continue;               sum : = sum + x;               count : = count + 1;       end;             if count > 0 then               lblvyvod.caption : = floattostr(sum / count); end; убрала кое что ненужное отформатировала увы проверить негде, так что на ваш страх и риск. логика правильная