Составьте обучающую модель-схему-связи слов в предложений
Var s:string; z,y,x,v:char; begin read(s); z:=s[1]; y:=s[2]; x:=s[3]; v:=s[4]; write(z,y,x,v,'ток'); end.