Написать программу, вычислить количество четырехзначных чисел, делящихся на 5, у которых все цифры различны — Pascal(Паскаль)

uses crt;
var
i,ch,t,s,d,e,k:integer;
begin
k:=0;
for i:=200 to 1999 do begin
ch:=5*i;
t:=ch div 1000;
s:=ch mod 1000 div 100;
d:=ch mod 100 div 10;
e:=ch mod 10;
if (t<>s) and (t<>d) and (t<>e) and (s<>d) and (s<>e) and (d<>e) then begin
writeln(ch:5,t:5,s:5,d:5,e:5);
k:=k+1;
end;
end;
writeln('takih chisel est ',k);
end.