Отношение четных чисел к кратным 5 из промежутка -n до n напишите программу!

program f1; var i,n,t,y: integer; s;real; begin read(n); for i:=-n to n do begin  if  i mod 2=0  then y:=i; if i mod 5 =0 then t:=i ; s:=y/t; writeln(s); end.