Подсчитать количество отрицательных чисел из 10 введенных с клавиатуры

Program n1;
var a,i,k: integer;
begin
k:=0;
for i:=1 to 10 do
begin
write(введите ,i, число: );
readln(a);
if alt;0 then k:=k+1;
end;
write(количество: ,k);
end.

#include lt;iostreamgt;

int main() {
    int k, i, t;

    k=0;

    for (i=1; ilt;=10; i++) {
        std::cingt;gt;t;
        if (tlt;0) {k+=1;}
    }
    std::coutlt;lt;k;
}