Сделайте в паскале даны целые числа k и n (n> 0). вывести n раз число k. напечатать те из двузначных чисел, которые делятся на 4 но не делятся на 6

1)var k,n,a:integer;
begin
readln(k,n);
for a:=1 to n do
writeln(k);
end.
2)var a:integer;
begin
for a:=10 to 99 do
if (a mod 4=0) and (a mod 6<>0) then writeln(a);
end.