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.
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.