С клавиатуры задаётся три числа. Составить программу, которая определяет, сколько отрицательных чисел введено

Program mas;

uses crt;

const n=3;

var a, i, kp, ko, kn: integer;

begin clrscr;

writeln ('Введите ', n,' целых чисел');

ko:=0; for i:=1 to n do

begin

readln (a);

if a<0 then

ko:=ko+1 end;

writeln ('Кол-во отриц чисел = ', ko);

readln;

end.