program cryptage ;
uses wincrt ;
var
m:string;
{********************************premier**************************}
function premier (n:integer):boolean;
var
begin
	nb:=0;
	test:=false;
	for i:=1 to n div 2 do
        if   n mod i :=  0 then nb:=nb+1 ;
        if nb:=2 then test:=true ;
	premier:=test;
	End;
{****************************valide****************************}
function valide (ch:string):boolean;
var
i:integer;
v:Boolean;
Begin
	v:=true
	i:=0;
	Repeat
		i:=i+1;
		if not (length(ch)>4) and (premier length(ch)) then (v:=false);
    until (v=false)or (i=Length(ch));
  valide:=v
    end;
{*****************************saisie**************************}
procedure saisie (var m:String);
Begin
	repeat
		writeln ('donner le message a crypter :');
		readln (m);
    until (valide(m));
	end;
{**************************cryptage*************************}
function cryptage (m:string):string;
var
l,i:integer;
Begin
	l:=length (m);
	p:=1;
	for i:= 1 to l div 2 do ;
	if p:= l mod i =0 then p:=p*p ;

	end;
{************************PP***************************}
Begin
	saisie (m);
    writeln (crypter(m));
end.