Даны 3 числа абс найти количество чисел,значения которых меньше 10 напишите вот само решение там: var a,b,c: înteger degin; и так далее не могу решить,люди,будьте добры,

Var  a,b,c,k: integer;
begin
k:=0;
readln(a,b,c);
if a<10 then k:=k+1;
if b<10 then k:=k+1;
if c<10 then k:=k+1;
writeln('Количество чисел, меньших 10 = ', k);
readln;
end.