Программы в паскале на for и while

[gennadii]

Здравствуйте! Сегодня столкнулся с заданиями, это не проверочная работа, тренировка для себя:
1. Напишите программу возведения чисел в целую степень. Число окончания цикла и степень запрашивайте у пользователя.(начинается цикл с единицы), это на for, тут вроде бы понял, посмотрите пожалуйста, оцените:

Program my_3;
Uses crt;
var
  i,n:integer;
  b,n1:real;
Begin
  clrscr;
  Writeln('Vvedite chislo konca cikla');
  Readln(n);
  Writeln('Vvedite stepen chisla');
  Readln(n1);
    for i:=1 to n do begin
    b:=exp(n1*ln(i));
    Writeln('stepen el cikla ',i,'=',b:8:2);
  end;
  Readkey;
End.

А вод над второй задачей задумался, это на While:

Напишите программу поиска минимального числа, большего 300, которое нацело делится на 19.
Как правильно задать предусловие?
Это число будет 323, получится 17, вразумите, как правильно это описать в программе, причем если можно то опишите словами алгоритм, программу я хочу написать сам. Спасибо большое! Спасибо огромное врубился! Опять ступил с простой арифметикой тут же 304 16 будет, вот осел!

Program my_3;
Uses crt;
Var
  x:word;
Begin
  x:=300;
    while (x mod 19<>0) do inc(x);
  Writeln(x);
  Readkey;
End.

[Mad_Cat]

x:=300;
while (x mod 19 <>0) do inc(x);