Turbo Pascal : три задачи по циклам. Помогите
 

1) Вычисление факториала f=n! описать с помощью цикла с предусловием и цикла с постусловием; сделать проверку на отрицательность nпри вводе. Организовать выход из программы по нажатию клавишиESC2) Логической переменной p присвоить значние true, если n (n>1) - простое число, и значение false иначе.Примечание: у составного числа n обязательно есть делитель k из отрезка [2,sqrt(n)], он и ищется.3) Присвоить целой переменной h третью от конца цифру в записи по- ложительного целого числа k.Например,если k=140985, то h=9.пожалуйста, и если можно, то с комментариями..