использовать Чертежник
алг ключ
нач
сместиться в точку (1,1)
опустить перо
сместиться в точку (2,1)
сместиться в точку (2,2)
сместиться в точку (3,2)
сместиться в точку (3,3)
сместиться в точку (7,3)
сместиться в точку (7,1)
сместиться в точку (11,1)
сместиться в точку (11,6)
сместиться в точку (7,6)
сместиться в точку (7,4)
сместиться в точку (1,4)
сместиться в точку (1,1)
поднять перо
сместиться в точку (8,2)
опустить перо
сместиться в точку (10,2)
сместиться в точку (10,5)
сместиться в точку (8,5)
сместиться в точку (8,2)
поднять перо
сместиться в точку (0,0)
кон
Объяснение:
Смотри картинку
k:=false;
i:=pos(' ',s);
repeat
inc(i);
if (s[i]=' ') then k:=true;
until k;
writeln(i);