Program sablier;
Var esp,ch:string;
(*******************************************)
Procedure affiche_bas(var esp:string;ch:string);
Var ch2:string;
n,i:integer;
Begin
esp:='';
n:=0;
i:=1;
Writeln(ch);
Repeat
esp:=' '+esp;
n:=n+2;
i:=i+1;
ch2:=esp+copy(ch, i, length(ch)-n);
Writeln(ch2);
Until length(copy(ch, i, length(ch)-n))=1;
End;
(******************************************)
Procedure affiche_haut(esp,ch:string);
Var i,n:integer;
ch2:string;
begin
i:=-1;
n:=1;
Repeat
n:=n+2;
i:=i+1;
delete(esp,1,1);
ch2:=esp+copy(ch, length(ch) div 2-i, n);
Writeln(ch2);
Until ch2=ch;
End;
(********************PP***********************)
Begin
Repeat
Writeln('CH = ');
Readln(ch);
Until (ch<>'') and (odd(length(ch)));
affiche_bas(esp,ch);
affiche_haut(esp,ch);
End.

UHJvZ3JhbSBzYWJsaWVyOwpWYXIgZXNwLGNoOnN0cmluZzsKKCoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKiopClByb2NlZHVyZSBhZmZpY2hlX2Jhcyh2YXIgZXNwOnN0cmluZztjaDpzdHJpbmcpOwpWYXIgY2gyOnN0cmluZzsKbixpOmludGVnZXI7CkJlZ2luCmVzcDo9Jyc7Cm46PTA7Cmk6PTE7CldyaXRlbG4oY2gpOwpSZXBlYXQKZXNwOj0nICcrZXNwOwpuOj1uKzI7Cmk6PWkrMTsKY2gyOj1lc3ArY29weShjaCwgaSwgbGVuZ3RoKGNoKS1uKTsKV3JpdGVsbihjaDIpOwpVbnRpbCBsZW5ndGgoY29weShjaCwgaSwgbGVuZ3RoKGNoKS1uKSk9MTsKRW5kOwooKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKQpQcm9jZWR1cmUgYWZmaWNoZV9oYXV0KGVzcCxjaDpzdHJpbmcpOwpWYXIgaSxuOmludGVnZXI7CmNoMjpzdHJpbmc7CmJlZ2luCmk6PS0xOwpuOj0xOwpSZXBlYXQKbjo9bisyOwppOj1pKzE7CmRlbGV0ZShlc3AsMSwxKTsKY2gyOj1lc3ArY29weShjaCwgbGVuZ3RoKGNoKSBkaXYgMi1pLCBuKTsKV3JpdGVsbihjaDIpOwpVbnRpbCBjaDI9Y2g7CkVuZDsKKCoqKioqKioqKioqKioqKioqKioqUFAqKioqKioqKioqKioqKioqKioqKioqKikKQmVnaW4KUmVwZWF0CldyaXRlbG4oJ0NIID0gJyk7ClJlYWRsbihjaCk7ClVudGlsIChjaDw+JycpIGFuZCAob2RkKGxlbmd0aChjaCkpKTsKYWZmaWNoZV9iYXMoZXNwLGNoKTsKYWZmaWNoZV9oYXV0KGVzcCxjaCk7CkVuZC4=

YmFj

bac