Question

паскаль! из слова "вертикаль" - вывести слова: "тир" "ветка"

Answer 1

var r,d,s: string; 
begin 
r:= 'вертикаль' ; 
d:= r[4]+r[5]+r[3]; 
s:= r[1]+r[2]+r[4] +r[6]+r[7]; 
writeln(d,s) 
end.