Напишите в pascal программу: даны три числа. вывести на экран только отрицательные

Var a,b,c: integer; begin writeln('введите три числа'); readln(a,b,c); if a< 0 then write(a , ' '); if b< 0 then write(b, ' '); if c< 0 then write (c); end.

Var a,b,c: integer; begin   writeln('введите a,b,c'); readln(a,b,c);   if a< 0 then writeln(a);   if b< 0 then writeln(b);   if c< 0 then writeln(c);   if (a> =0) and (b> =0) and (c> =0) then writeln('отрицательных нет'); end.  

Если я верно понимаю , то массив должен состоять из последовательных чисел. если это верно, то программа для решения может иметь такой вид: n=int(                #ввод количества элементов массива x=[i for i in range(n)]    #создаем список чисел от 0 до n-1 s=0                              #начальное значение суммы ss=[]                            #список сумм for i in range(n):           #цикл от 0 до n-1     print(x[i])                #печатаем число массива     s+=x[i]                    #прибавляем число к сумме      if i%10==0 and i> 0: #если количество чисел составило i-й десяток         ss+=[s]                  # добавляем сумму в список сумм for i in range(len(ss)): #цикл от 0 до количества сумм     print(ss[i])                #вывод сумм можно было бы обойтись без списка х, но по условию сказано, что нужно получить и вывести массив чисел, поэтому список х был создан в начале программы.