program sushu;varj,s:integer;function su(n:integer):boolean;var i:integer; t:boolean;begint:=true;i:=2;while t and (i<=sqrt(n)) doif n mod i=0 then t:=false else i:=i+1;su:=t;end;beginj:=3;s:=0;while j<=99 dobeginif su(j) and su(j+2) thens:=s+1;j:=j+2;end;writeln('Total:',s);readln;e