помогите кто понимает циклы

[любаша]

если кто-то сможет помочь по этим вот задачам:
1.напечатать минимальное число,большее 200, которое нацело делится на 17.
2юнайти наименьшее кратное двух заданных натуральных чисел,используя алгоритм евклида
3.известен факториал числа,найти само число
4.даны два натуральных числа,получить все кратные им числа не превышающие их произведения



заранее большое спасибо за любую помощь

[Rusl92]

1 задача например:
k:=0;i:=201;
while k=0 do

if (i mod 17) = 0 then k:=1
else inc(i);
write(i);

ну вот и все

[Sazary]

uses crt;
var
n,i : longint;
begin
clrscr;
write('Vvedite chislo: ');
readln(n);
for i:=1 to n do
 begin
 n := trunc(n / i);
 if n = 1 then
   begin
   writeln('Iskomoe chislo= ',i);
   break;
   end
 else if n = 0 then
   begin
   writeln('Chislo ne yavlyaetsya faktorialom!');
   break;
   end;
 end;

readln;
end.

[Sazary]

uses crt;
var
 n,m,pr,num : longint;

begin
clrscr;
write('Vvedite m: ');
readln(n);
write('Vvedite n: ');
readln(m);
pr := n*m;
if n>m then num := n
else num := m;
while num <=pr do
  begin
  if (num mod m = 0) and (num mod n = 0) then
   write(num,'  ');
  num := num + 1;
  end;

readln;
end.

[maladoy]

2 задача
program evklid;
var
a,b:integer;
del,ost:integer;

begin
try
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
repeat
begin
ost:=a mod b;
a:=b;
b:=ost;
if b<>0 then del:=ost;
end;
until ost=0 ;
writeln(del);
readln;
end.