for i:= 1 to n doreadln (mar);for i:= n downto 1 dowrite (mar);
כשאני כותב readln ואז mar תדע שזה mar של i....כי יש בעיה בפורום..אותו הדבר לגבי write
DRYICE
program updown (input,output);var name: string; length_name,i: integer;begin read (name); lengh_name:=length (name); for i:=1 to length_name do insert (name,name,(length_name*2)+1); delete (name,1,length_name); write (name);end.