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

 

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

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

1)  var n,i:integer;beginfor 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;beginreadln (a,b);while (a<>0) and (b<>0) doif a>b then a:=a mod belse b:=b mod a;writeln (a+b);readln;end.