помогите написать задачи на Pascal

1. выведите на экран натуральные числа, меньшие 500, кратные 3 и заканчивающиеся на 4

2. Найти НОД двух целых чисел.

1) var n, i:integer;

begin

for i:=1 to 500 do

if (i mod 3=0) and (i mod 10=4) then

writeln (i);

readln;

end.

2)

var a, b:integer;

begin

readln (a, b);

while (a0) and (b0) do

if a>b then a:=a mod b

else b:=b mod a;

writeln (a+b);

readln;

end.