Аист умножить на 4=стая Нужно решить задачу в паскале)

Можно убрать некоторые проверки. vari, s: Integer; beginfor i: =1000 to 9999 doif (i*4 >=1000) and (i*4 <= 9999) thenbegins: =i*4; if (i mod 100) div 10=(s div 1000) thenif (i mod 10)=(s mod 1000) div 100) thenif (i div 1000=(s mod 100) div 10) then if (i mod 1000 div 100) <> i div 1000) and (i mod 1000 div 100) <> (i mod 100) div 10) and (i mod 1000 div 100) <> i mod 10) then if (s mod 10 <> s div 1000) and (s mod 10 <> (s mod 1000) div 100) and (s mod 10 <> (s mod 100) div 10) thenWriteln (i, '=', i*4); end; Readln; end.