Перевести с С на Паскаль - Turbo Pascal

Формулировка задачи:

Помогите перевести код на паскаль.

#include <stdio.h>
 
int isprime(int);
 
int main(void)
{
    int number;
    int i;
    int first, second, third;
 
    for (i=10; i*i<1000; ++i) {
        if (isprime(i)) {
            number = i * i;
            first = number / 100;
            second = (number - first*100) / 10;
            third = number % 10;
            if (first<second && second<third)
                printf("number = %i\n",number);
        }
    }
    return 0;
}
 
int isprime(int n)
{
    int i;
    for (i = 2; i < (n/2); i++)
        if ((n/i) >1 && (n%i) == 0)
            return 1;
    return 0;
}

Решение задачи: «Перевести с С на Паскаль»

Листинг программы

var
  number, i, first, second, third: integer;
 
function isPrime(n: integer): boolean;
var
  i: integer;
  answer: boolean;
begin
  answer := false;
  for i := 2 to n div 2 do
    if (n div i > 1) and (n mod i = 0) then answer := true;
  isPrime := answer;
end;
 
begin
  i := 10;
  while i * i < 1000 do
  begin
    inc(i);
    if isPrime(i) then
    begin
      number := i * i;
      first := number div 100;
      second := (number - first * 100) div 10;
      third := number mod 10;
      if (first < second) and (second < third) then
        writeln('number = ', number);
    end;
  end;
end.

Объяснение кода листинга программы

Создается переменная number типа integer.
Создаются переменные i, first, second, third типа integer.
Создается функция isPrime, которая принимает аргумент n типа integer и возвращает значение типа boolean.
Внутри функции создается переменная answer типа boolean.
В цикле for происходит проверка на простоту числа n.
Если число n не является простым, то значение переменной answer устанавливается в true.
По окончании цикла, значение переменной isPrime устанавливается в answer.
Создается переменная i и инициализируется значением 10.
Запускается цикл while, условием которого является i * i < 1000.
В цикле происходит увеличение значения переменной i на единицу.
Если число i является простым, то выполняется блок кода:
- Создается переменная number и инициализируется значением i * i.
- Создаются переменные first, second и third и инициализируются значениями, вычисленными по формулам number div 100, (number - first * 100) div 10 и number mod 10 соответственно.
- Если условие first < second и second < third выполняется, то выводится значение переменной number.
Цикл while завершается, когда значение переменной i становится больше или равно 1000.
Код завершается.