Паскаль. Процедуры и функции.

[Ann2807]

Помогите, пожалуйста, ввести функцию. Код к задаче готов уже.

3.Составить программу для проверки, можно ли заданное натуральное число N представить в виде произведения двух простых чисел.

program number;
var
N,a,b:longint;
begin
writeln ('Введите натуральное число');
readln(N);
Writeln('Введите первое число');
readln(a);
Writeln('Введите второе число');
readln(b);
if a mod a=0
then if a mod 1=0
then if b mod b=0
then if b mod 1=0
then if N=a*b
then
writeln('Заданное натуральное число можно представить в виде произведения двух простых чисел a=',a, ' и b=',b, ' ')
else writeln('Заданное натуральное число нельзя представить в виде произведения двух чисел a=',a, ' и b=',b, ' ')
end.