fork download 
  1. program square;
  2.  
  3. var sep, input: string;
  4.   i, j, n, m : integer;
  5.  
  6.  
  7. begin
  8.   write('sep:');
  9.   readln(sep);
  10.  
  11.   write('str:');
  12.   readln(input);
  13.  
  14.   for i:=1 to length(input) do write(input[i], ' ');
  15.   writeln();
  16.   for i:=2 to length(input)-1 do begin
  17.     write(input[i]);
  18.     for j:=1 to length(input)*2-3 do write (sep);
  19.     writeln(input[length(input) - i + 1]);
  20.   end;
  21.   for i:=0 to length(input)-1 do 
  22.     write(input[length(input)-i], ' ');
  23. end.
Success #stdin #stdout 0s 4912KB
comments (?)
stdin 
 
*goatsex*goatsex*goatsex*
stdout 
sep:str:* g o a t s e x * g o a t s e x * g o a t s e x * 
g                                               x
o                                               e
a                                               s
t                                               t
s                                               a
e                                               o
x                                               g
*                                               *
g                                               x
o                                               e
a                                               s
t                                               t
s                                               a
e                                               o
x                                               g
*                                               *
g                                               x
o                                               e
a                                               s
t                                               t
s                                               a
e                                               o
x                                               g
* x e s t a o g * x e s t a o g * x e s t a o g *
https://ideone.com/zGXTwC
language:
Pascal (fpc 3.0.4)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!