Написать в паскале используя циклы: среди всех натуральных трехзначных чисел найти и вывести на экран только кратные пяти и вычислить их количество.

Var x.k:integer;
BEGIN
k:=0;
for x:=100 to 999 do
if x mod 5 = 0 then begin writeln(x);k:=k+1; end;
writeln('k=',k);
end.