При вводе текста придерживайся следующих правил

Для того чтобы перейти к вводу нового абзаца, нажми клавишу Shift

Не следи за концом строки: как только он будет достигнут, курсор автоматически перейдёт на начало следующей строки

Там, где это нужно, используй прописные буквы (Shift + буква)

Соседние слова отделяй двумя пробелами

смотри блок-схему в приложенном файле

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.