Отношение четных чисел к кратным 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.