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

Var a, b, c, d:integer;
begin
for a:=1 to 10 do begin
write ('введите число=> ');
readln (d);
if (d mod 2=0) then c:=c+1 else d:=d+1;
end;
writeln ('чётных=> ', c,' нечётных=> ', d);
end.