Считает кол-во четных правильно, а нечетных - нет. В чем может быть проблема?

спасибо за пояснение :)

при запуске вот такое:100 * a + 10 * b + c100 * a + 10 * b + c100 * a + 10 * b + c100 * a + 10 * b + c100 * a + 10 * b + c100 * a + 10 * b + c

program zadacha8_149;var a,b,c:integer;beginfor a := 1 to 9 dofor b := 0 to 9 dofor c := 0 to 9 doif (a <> b) and (a <> c) and (b <> c) then writeln('100 * a + 10 * b + c');end.

writeln('100 * a + 10 * b + c'); замените на write((100 * a + 10 * b + c):4);

как же вы выручаете ..)

потому что тип данных d - integer, а это целые числа, d попробуй поменять на float или double

program zadacha3_149;

var  

i,s,k,v: integer;

begin  

s:=0;

k:=0;

for i:=1 to 10 do

 begin

  writeln('Введите число: ');

  read(v);

  if (v mod 2=0) then

    s:=s+1

  else  

    k:=k+1;

 end;

writeln('Четных чисел: ',s);

writeln('Нечетных чисел: ',k);  

end.