помогите! срочно нужно! информатика 9 класс
1 и 2 задача

1)Program n1;var a,b,i: integer;beginreadln(a,b);for i:=a to b do write(i*5,' ');end.2)Program n2;var a: real;i: integer;beginreadln(a);for i:=2 to 24 do if i mod 2=0 then write(a*i/10,' ');end.