Товарищи программисты-вы моя последняя надежда))))

[баста]

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

[5naip]

дак вы свою основную часть выложите...раз уж она есть.

[баста]

program lazha;
var n,k,m,i:integer;

begin
n:=10;
k:=0;
i:=1;
{while (n<10) do
n:=n+1;}
for i:=1 to n div 2 do
begin
i:=i+1;
m:=n mod i;
if m = 0 then
k:=k+1;
writeln('k paBHO');
writeln(k);
{if (m > 0) or (m < 0) then
k:=0;
writeln('npoctoe');
writeln(n);}
end;
end.

[AlDelta]

Название.
Закрыто.