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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.