【程序设计题】~加急!一个大于六的偶数可以表示为两个素数之和,即C=A+B,其中C为偶数,AB为素数、

什么语言?给个pascal的!
var
a,b,c:longint;
function isprime(n:longint):boolean;
var
i,j:longint;
begin
isprime := n>1;
for i:=2 to trunc(sqrt(n)) do
if n mod i = 0 then begin
isprime := false;
break;
end;
end;
begin
c:=0;
a:=3;
while a0 then begin
b:=(380-c) div 2;
a:=380-b;
writeln('380=',a,'+',b);
writeln('|A-B|=',c);
end else
writeln('不能分解为两素数之和');
end.