Срочно срочно сделайте в паскале плиз Даны целые числа 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 60) then writeln(a);
end.