введите строку из 5 чисел компьютер должен определить отрицательные числа

var    a:array[1..5] of integer;    i:integer;begin    for i:=1 to 5 do readln(a[i]);    for i:=1 to 5 do if a[i] < 0 then write(a[i],' ');    writeln('- отрицательные');    readln;end.Так?