Склавиатуры ввели 10 чисел положительных и отрицательных.необходимо вывести на экран сумму всех положительных чисел

var i,a,s: integer;

begin

for i: =1 to 10 do begin readln(a); if a> 0 then s: =s+a; end;

writeln(s);

end.

Вы даже изначальную строку с ошибками! сая большая социальная сеть в россиисэто судя по всему ответ номер 1. обоснование: const ss = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; var   s : string;   i : byte; begin   s: ='фгв дсояыгв фсщлгояргв фзхя е усффллфахс';   for i: =1 to length(s) do       if pos(s[i],ss)> 0 then           if pos(s[i],ss)> 3 then s[i]: =ss[pos(s[i],ss)-3] else s[i]: =ss[length(-pos(s[i],ss))];   writeln(s); end.

Var   a        : array[1..7,1..7] of integer;   i,j,s : integer; begin   s: =0;   for i: =1 to 7 do   begin       for j: =1 to 7 do       begin           a[i,j]: =random(100);           if i=j then s: =s+a[i,j];           write(a[i,j]: 4);       end;       writeln;   end;   write('сумма элементов главное диагонали: ',s); end.