ПОМОГИТЕ!!!!Составить программы для цикла for А) Вывести число от 1 до 100, кратное 10 Б) Вывести число от 1 до 50, кратное 7

a)program ryazantsev;var i: integer;beginfor i:=1 to 100 do if i mod 10 = 0 then writeln(i)end.b)program ryazantsev;var i: integer;beginfor i:=1 to 50 do if i mod 7 = 0 then writeln(i)end.