алгоритм вычисления простых чисел

Ответ от Gennady[гуру]
Доброго времени суток.
Все достаточно просто. Выделяем первые и последние две цифры числа N (по условию оно четырехзначное)
N12 := N div 100;
N34 := N mod 100;
А затем проверяем на равенство суммы цифр
if (N12 div 10) + (N12 mod 10) = (N34 div 10) + (N34 mod 10) then WriteLn('Суммы равны');
Или вам надо на простоту проверить? Тогда можно сделать, например, так
{проверяет число на принадлежность к простым}
function IsSimple(p: Integer): Boolean;
var i, k : Integer;
begin
IsSimple := True; {предположим, что простое}
if (p = 0) or (p = 1) then IsSimple := False; {ноль и единица не простые}
k := Trunc(Sqrt(p)); {верхняя граница диапазона поиска делителей}
for i:=2 to k do {от двух до верхней границы ищем делитель числа p}
if p mod i = 0 then begin
IsSimple := False; {если нашелся, значит не простое}
Break;
end;
end;
Удачи!