Написать команды для рисования: 3, 6, 8, 9. тема исполнитель.чертежник заранее огромное !

Var   s,s1: string;   i,n: integer; begin   write('введите строку: '); readln(s);   s1: ='';   for i: =1 to length(s) do s1: =s1+s[i]+s[i];   n: =length(s1);   i: =n-(n mod 4);   while i> =4 do begin       delete(s1,i,1);       i: =i-4       end;   for i: =length(s1) downto 1 do write(s1[i]);   writeln end. примеры введите строку: слово оовоолсс введите строку: 123456789 99877655433211

Из целого бидона в 8 литров переливаем в 5 литровую, получаем 3 литра в 8 литровой бутылке и 5 литров в 5 литровой и 0 в трехлитровой из 5 литрового бидона переливаем 3 литровый, получаем 3 литра в 8 литром бидоне, 2 литра в 5 литровом бидоне и 3 литра в 3 литровом бидоне затем из 3 литрового бидона переливаем в 8 литровый бидон 3 литра, получаем 6 литров в 8 литровом бидоне, 2 литра в 5 литровом и 0 в 3 литровом затем из 5 литрового переливаем в 3 литровый бидон 2 литра, получаем 6 литров в 8 литровом бидоне, 0 в 5 литровом бидоне и 2 в 3 литровом бидоне из 8 литрового бидона переливаем 5 литров в 5 литровый бидон, получаем 1 литр в 8 литровом бидоне, 5 литров в 5 литровом бидоне, 2 литра в 3 литровом бидоне переливаем из 5 литрового бидона в 3 литровый бидон 1 литр (там уже есть 2), получаем 1 литр в 8 литровом бидоне, 4 литра в 5 литровой банке и 3 литра в 3 литровом бидоне переливаем из 3 литрового бидона в 8 литровый бидон 3 литра, получаем 4 литра в 8 литровой бидоне и 4 литра в 5 литровом бидоне в виде цифровой таблицы* 8 5 3 8 0 0 3 5 0 3 2 3 6 2 0 6 0 2 1 5 2 1 4 3 4 4 0